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PREFACE 



If you are an Atari 600 XL owner, or are about to beconne 
one, it is probably because you have decided that this 
computer offers you more potential for gaming, 
programming etc. in colour, with sound, than other 
machines on the market. 

Because we are aware of the potential of the Atari 600 XL 
we have written a wide choice of programs which make 
use ofthe computer's facilities. 

If you are a games player, you will find ample 
opportunity to use the colour and graphics whilst testing 
your reactions and finger twisting skills to the full. If you 
are interested in adventure gaming we have included a 
program which is a variant on Dragons and Dungeons. 
We have not, for reasons of space, been able to list a fully 
extended program but, when you buy your disks, you 
will be able to use a wider range of circumstances for 
youradventuring. 

To help users understand the programs we have 
included full 'how to' instructions and, for those who are 
keen to move on to greater things, programming hints 
where we feel they may be of interest. 

A book like this is always produced with the help of many 
people and we would like to thank, in particular, the 
Technical Staff of Atari U.K. and the staff of Burson- 
Marsteller Ltd. whose Barry Milnes was driven to the 
edge by our endless telephone calls. 
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IMPORTANT NOTES 



If you are a newcomer to computing, and are unfamiliar 
withthetaskofentering program listings, rememberthat 
it is of paramount importance to follow every detail. 
There are no real short cuts. 

Your computer is very particular about grammar and 
punctuation points and will not run the programs if even 
a small detail is missing. 

Be very fussy about the difference between (zero) and O 
(letter O). The zero is slashed through on all the listings in 
this book but does not appear on the screen with a slash. 
All the programs in this book have been printed directly 
from the Atari 600 XL and are therefore 'bug free'. 

N.B. On this printer all # (hash) signs are shown as £ 
signs so be careful when entering on your Atari. Make 
sure you don't use the £ sign by error. Use the SHIFT key 
ends. 

If you intend to 'save' some of these programs on tape to 
ensure you don't have to retype them always make sure 
that your cassette has accepted the information before 
you move on. 

You will find that patience is it's own reward in this high 
technologyworld. 
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BAR CHART 




This is a very helpful utility for anyone who wants to 
make comparisons of sales figures, temperatures, 
money fluctuations in the world markets or just work out 
how much they are spending a month on space invader 
games!!! 



How to use 

This program will allow the user to chart up to 80 items of 
data and will show the data in a variety of three colours to 
make comparison easier for the viewer. 

You will be presented with a 'menu' which will ask you 
how many items you intend to compare. Enter the 
number and the computer will then ask you for the data 
for each 'bar'. 
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The data is entered by simply pressing the number keys. 
You do not have to press other keys. 

The horizontal and vertical scales will be automatically 
drawn by the computer as it analyses the program. 

To restart, once the chart is drawn, press SPACE. 



The Program 

10 REM BAR CHARTS 

20 DIM H(80) 

30 N-O 

40 Cl==l :C2==3:C3==5 

100 REM MAIN MENU 

110 GRAPHICS 1+16 

120 POSITION 0,2: PRINT £6;" PAP CHAP 

TS" 

130 POSITION 0,3: PRINT £6;" .:==:..^..,,,,,, 

140 POSITION 0,10: PRINT £6;"1) FNTFR DA 
TA" 

1 50 POS I T I ON ,12: PR I NT £6 5 " 2 ) D I RPI AY 
CHART" 

160 POSITION 0,14: PRINT £6; "3) CHANRF C 
OLOURS" 

170 POSITION 0,1 6: PR I NT £6: "4) LP AVE PR 

OGRAM" 

200 OPEN £1,4,0, "K: " 

210 GET £1,D:IF D<ASC("1") OR D>ASC'"4") 

.THEN 210 
220 CLOSE £1:IF D=ASC("4") THEN GRAPHICS 

0:GOTO 20000 
230 ON D-48 GOSUB 1000,2000,3000 
300 GOTO 100 
1000 REM ENTER DATA 
1005 TRAP 1005 

1010 GRAPHICS 0: PRINT "HOW MANY ITEMS "; 
1020 INPUT N:IF N<2 OR N>80 THEN 1010 
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1025 POKE 752,1: REM CURE:;0R OFF 

1030 FOR L-1 TO N 

1035 TRAP 1035 

1 040 POS I T I ON , 1 : PR I NT £6 5 " I TEN " ; L ; " 

": POSITION 7, 1 


1050 INPUT D 
1060 IF D<0 THEN 1040 
1065 POKE 752,1: REM CURSOR OFF 
1070 H(L)==D:NEXT L 
1099 RETURN 

2000 REM DISPLAY BAR CHART 
2005 TRAP' 40000 

2010 GRAPHICS 1+16: IF N-0 THEN PRINT £6; 
"NO DATA IS PRESENT": GOTO 2490 
2020 GRAPH I CS 7+ 1 6 : SETCOLOR . C 1 , 1 : SETC 
OLOR 1 , C2 , 1 : SETCOLOR 2 , C3 , 1 O 
2030 S=^INT(159/N) 
2040 M=0 

2050 FOR L^l TO N 
2060 IF H(L)>M THEN M=H (L) 
2070 NEXT L 
2080 U=95/M 
21O0 FOR L=l TO N 

2110 C=0:L=1:F0R I-O TO (S-1)*N STEP S 
2115 C-C+1:IF C=4 THEN C-1 
2117 COLOR C 
2120 FOR J-0 TO S--1 

2 1 30 PLOT J + 1 , 95 : DR A WTO J + 1 , ( 95-U*H (I. ) ) 
2140 NEXT J 
2150 L-L+1 
2160 NEXT I 
2490 GOSUB 2500 

2499 RETURN 

2500 REM WAIT FDR SPACE 
2510 OPEN £1,4,0, "K: " 
2520 GET £1,D ■ 

2530 IF D032 THEN 2520 

2540 CLOSE £1 

2550 RETURN 

3000 REM ALTER COLOUR SCHEME 
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3003 TF^AP 3003 

3005 GFRAPHICB 

3010 POSITION 0,0: PRINT £6 5 "COLOUR ONF H 

UF£ "i; 

3020 INPUT CI: IF C:l.<0 OR C1>:15 THEN 3010 

3030 POSITION 0,10: PRINT £6; "COLOUR TWO 

HUE ": 

3040 INPUT C2:IF C2<0 OR C2>15 THEN 303O 

3050 POSITION 0,20: PRINT £6; "COLOUR THRF 

E HUE "; 

3060 INPUT C3:IF C3<0 OR C3>15 THEN 305O 

3099 RETURN 

20000 EH-JD 
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CLEAR PATH 




You may recall that the United States space shuttle 
Challenger was often nicknamed The Flying Brick' by it's 
pilots as it fell to Earth at 5,000 miles an hour, without an 
engine. 

We have given you the same problem to solve, except we 
have made it even nastier for you by bringing you into a 
deserted city. 

We have given you one edge however. You have a cargo 
of bombs which you can use to clear a path for your flying 
brick. 



How to play 

Entering the screen at top left you must 'fly' across the 
city and demolish the skyscrapers by pressing SPACE 
barto release your bombs. 
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You can choose the level of difficulty at the beginning of 
the game, on a scale of 1 to 1 0. 

You can only drop a second, or third, bomb when the first 
has hit it's target so there is no point in pressing the 
SPACE barand hoping forthe best. 



Programming Hints 

To change the height of the buildings alter the number 
afterthe * sign in line 1020. Remember if you increase the 
height you will reduce the time you have to respond. 



The Program 

10 REM CLEAR PATH 

11 GRAPHICS 0: PR I NT "SPEED (1-10> •' ; 

12 INPUT SP:IF SP<1 OR SP>10 THEN 11 
15 SC=0 

20 GRAPHICS 3+16 

30 GOSUB 1000 

40 X=0:Y=0 

50 E=0:F:=0 

100 A=X+1:B=Y 

105 FOR L=l TO 4*SP:NEXT L 

110 IF A-40 THEN A=0:B=B+1 

115 IF B=23 AND A=20 THEN 30n 

120 LOCATE A,B,C 

130 IF C=3 THEN 900 

200 COLOR 4: PLOT X,Y 

210 COLOR 1:PL0T A,B 

220 X=A:Y=B 

300 IF PEEK (764) =33 AND F=0 AND Y023 TH 

EN F=Y+1:E=X:P0K:E 764,0: COLOR 2: PLOT E,F 

350 IF F=0 THEN 100 

400 G=F+1:IF G=24 THEN COLOR 4: PLOT E,F: 

F=0:GOTO 100 
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4 1 

415 

420 

430 

440 

300 

810 

820 

830 

040 

850 

900 

910 

920 

930 

940 

950 

960 

N > " 

970 

980 

990 

1000 

1 005 

1 1 

1020 

-1 
1030 
1040 
1 050 
1099 



THEN SC=SC+10 
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FU 



COLOR 4: PLOT E,F 

LOCATE E,G,D: IF D=: 

COLOR 2: PLOT E, G 

F=G 

GOTO lOO- 

REM LANDED 

GRAPHICS 1+16: POSITION 

PRINT £6 5 "YOU LANDED THE 

POSITION 0, 14: PRINT 

FOR L=l TO 600: NEXT 

GOTO 20 

REM CRASHED INTO A BUILDING 

FOR L=0 TO 250 STEP 3 

SOUND 0,L, 3, 14:NEXT L: SOUND 

GRAPHICS 1+16 

POSITION 0.. 10 

PRINT £6; "YOU 

POS I T I ON ,17; 



iNE" 



£6; "SCORE 

L 



';sc 



SCORED : ' 
PRINT £61 



. . O . O 



<RETUR 



OPEN £1,4,0, "K: " 

GET £1,D:IF DO 155 THEN 980 

CLOSE £1:RUN 

REM DRAW A RANDOM CITY 

COLOR 3 

FOR X=0 TO 39 

FOR Y=23 TO 23-INT (RND M ) *5+l ) STEP 



PLOT X, 
NEXT Y 
NEXT X 
RETURN 



Y 
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MAZE MOVER 




This little monster will soon let you know if your 
reactions and finger controls are what you think they are. 

We have given you a choice of two mazes and you have 
to move the space star from the bottom left position to 
the top right of the screen. 

Touch any part of the walls and you are a goner. 



How to play 

Use keys Z, X, /, +, to move up and down, left and right. 

You will be given a choice of mazes at the beginning and 
will have to select 1 or 2 and press RETURN. 

At the end of each attempt you will be asked to reselect a 
maze and begin again. 
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If you do complete successfully you will be given a points 
score. 

By the way we think No. 2 is the tougher of the two. See if 
you agree. 



Programming Hints 

To make full use of the memory of your machine we have 
included a short machine code routine from lines 9500 to 
9570, so be careful howyouenterthis section. 



The Program 

10 REM MAZE MOVER 

20 fvEM WITH M/CODE ROUTINES 

25 POKE 53248, 03 POKE 53249,0 

30 G03UB 1000 

40 GOSUB 2000 

50 X=52:V=175: GOSUB 3000 

60 POKE H2, ISO 

70 M==0jP0KE hi , X 

80 CX=3 

90 G0E3UB 5000 

95 SC=5000 

100 K==PEEK(764) 

102 SC-SC-5 

105 POKE 53278, 1 

110 IF K=:23 aRK-22 OR K-3a OR K=6 THEN 

M=K 

120 IF M=22 THEN X=X+CX:POKE H1,X 

130 IF M=23 THEN X=X-CX:POKE H1,X 

140 IF M=33 THEN 2=USR(122S8) 

150 IF M=6 THEN Z=USR( 12301) 

200 IF PEEK (53252)00 THEN 400 

210 IF F' E E K ( 5 3 2 6 )■=:::>(:) THEN 5 (I) C) 

290 GOTO 100 

400 GRAPH I CS 1 + 16: POS I T I ON , 1 
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< SPACE >" 
v33 THEN 430 

POSITION 3, 10 



405 POKE H 1,0: POKE H2,0 

410 PRINT £6; "YOU DIDN^T MAKE IT" 

415 POSITION 0, 17 

420 PRINT £6; "' 

430 IF PEEK ( 764 )<: 

440 RUN 

500 GRAPHICS 1+16: 

505 POKE H 1,0: POKE H2,0 

510 PRINT £6; "excellent 

520 POSITION 

3TR* (SO 

530 POSITION 

540 PRINT £6 3 

550 IF PEEK (764) 

560 RUN 

800 REM CHOOSE MAZE 

810 GRAPHICS 1+16: POSITION 0,10 

820 PRINT £6; "choose mane number 

830 POSITION 0, 16 

840 PRINT £6;" (1 OR 2)" 



Q 


, 13: 


PR 


INT £6; " 





,17 






II 






:: SPACE >" 


6 


4 ) < :: 


>33 


THEN 550 



OF 



850 OPEN £1,4,0, "K: " 
:i60 GET £1, A: IF A<49 OR A! 



p 



THEN 860 



370 
000 
875 
880 



RESTORE 9000: IF A=50 THEN RESTORE 10 



CLOSE £1 

RETURN 

1000 REM DRAW THE MAZE ON PLAYFIELD 
1005 GOSUB 800: GRAPHICS 5+16 
1010 SETCOLOR 2, 8, 4: COLOR 3 



1020 FOR 



--0 TO 40 STEP 



1030 FOR X=0 TO 64 STEP 



B 
8 



1040 READ D:IF D=l THEN PLOT X,Y:DRAWTO 

X+3,Y 

1050 NEXT X:NEXT Y 

1100 FOR Y=0 TO 32 STEP 8 

1110 FOR X=0 TO 72 STEP S 

1120 READ D: IF D=l THEN PLOT X,Y:DRAWTO 

X , Y+8 

1 130 NEXT X:NEXT Y 

1199 RETURN 

2000 REM INITIALISE PLAYER GRAPHICS 
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2010 


PMBA 


3E=40: 


POKE 5 


42 


79,PMBA3E 


2C)20 


CI -7 


J4: HI =53248 


2030 


POKE 


559, 62: POKE 53277,3 


2040 


P1-PMBASE*256+1024 


2045 


P2==Pl+256: H2=53249: C2=705 


2050 


POKE 


CI, 88: POKE H1,0 


2055 


POKE 


C2, 47: POKE H2,0 


2060 


FOR 


1=0 TO 255 


2070 


POKE 


P 1+1,0: POKE P2+ 1,0: NEXT I 


20S0 


POKE 


P2+42, 129: POKE P2+49,129 


2082 


POKE 


P2+43,66:P0KE P2+4S,66 


2084 


POKE 


P2+44, 36: POKE P2+47, 36 


2086 


POKE 


P2+45,24:P0KE P2+46,24 


2099 


RETURN 


300C) 


Q-Y+Pl 


3010 


POKE 


0,24: POKE 0+1, 24: POKE Q+2,24 


3020 
24 


POKE 


Q+3, 255: POKE Q+4, 255: POKE ' Q+5 


3030 


POKE 


Q+6,24:P0KE Q+7,24 


3040 


RETURN 


5000 


REM READ MACHINE CODE INTO RAM 


50 1 


RESTORE 9500 


5020 


FOR L= 12288 TO 12313 


5030 


READ 


D:POKE L„D 


5040 


NEXT 


L: RETURN 


9000 


DATA 


1 , 1 , 1 , 1 , 1 , 1 , 1 „ 1 , 1 


9010 


DATA 


0,1 


, 


,0,0, 


, 


, 0, 1 


9020 


DATA 


1 , 


, 


, 1,0, 1 


, 


,1,0 


9030 


DATA 


0, 1 


, 1 


,0,0,0 


,0 


,0, 1 


9040 


DATA 


1,0 


, 


,1,1,0 


,0 


,0,0 


9050 


DATA 


1, 1 


, 1 


,1,1,1 


, 1 


,1,1 


9100 


DATA 


1 ,0 


1 '0 


, 1 , C) , 


, '0 


, 1,0, 1 


9 1 1 


DATA 


1 ,0 


, 1 


1,0, 1 


, 1 


, 1,0, 1 


9120 


DATA 


1,0 


, 1 


,0,1 , 


, 


,1,0,1 


9 1 30 


DATA 


1,0 


, 1 


,0,1 


, 1 


, 1,0,1 


9140 


DATA 


1,0 


, 1 


, , 


, 1 


,0,0, 1 


9500 


DATA 


162 


252, 189 





,44 


9510 


DATA 


157 


, 3, 44, 202, 208,247 


9520 


DATA 


1 04 


■7i 


3 







9550 DATA 162,0,139,3,44 

Vb60 DATA 157,0,44,232,203,247 
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9570 DATA 104,96 

10000 DATA 1,1,1,1,1,1,1,1,1 

)0 1 DATA 0,1,1,1,0,0,1, , 

0020 DATA 0,0,1,1,1,0,0,1, 

)030 DATA , 1 , 1 , 1,0, , , , 

)040 DATA 0,0,1,1,1,0, , , 

0045 DATA 1,1,1,1,1,1,1,1, 

050 DATA 1,0,0, , C) , 1 , , , 

1 0060 DATA 1 , 1 , , C) , , 1 , 1 , , 

1 0070 DATA 1,1,0,0,0,1,1,0, 

10080 DATA 1, 1,0,0,0, 1, 1, 1, 



, 1 
, 1 
, 1 
, 1 



1 0090 DATA 1,1,0, , ,0,1, , , 1 
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PONTOON 




It's gamblers corner again as you pit your wits, and 
money, against the Atari croupierattheoldclassicgame. 
By the way you can't cheat when you show your hand as 
yourcomputeralreadyknowswhatyou are holding. 

The object of the game, in case you have never strayed 
into a card school, is to achieve a score of 21 in as few 
cards as possible. If you over buy, or overtwist, and score 
more than 21 you are 'bust' and you lose your stake. Aces 
count a 1 or 1 1 except when you receive two aces in a 
deal. In this case your hand will stand as 1 2. 



How to play 

The computer will deal your first two cards and ask if you 
would like to T (Twist, take another card without 
increasing your stake); S (Stay on your existing, or 
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eventual hand); B (Buy another card); F (Fold If you think 
your hand is useless, but remember you will lose your 
stake money, and give you another hand). 

If you buy, or twist, to a five card trick (five cards totalling 
21 or less) you will beat the computer, unlesss it had a 
pontoon (21). 

Press the key corresponding to your choice at each stage. 
There is no need to press RETURN at each stage. 

When buying a card, type in the amount you wish to bet 
and press RETURN. 

Remember, if you lose your shirt on this game you won't 
haveto part with it. 



The Program 

10 REM PONTOON 

20 GRAPHICS 

30 DIM C(52) 

40 DIM P(10) ,M(2) 

50 GDSUB 1000 

60 M=100 

70 DIM l<*(40) 

80 OPEN £1,4,0, "l<: " 

90 DIM A* (1) ' 

100 REM HAND LOOP 

110 GRAPHICS 

120 M=M-2:IF M<0 THEN 800 

122 PRINT "YOU HAVE "SM;" POUNDS LFFT" 

125 E!ET=2 

130 PRINT "YOUR CARDS :" 

135 GOSUB 1500 

140 GOSUB 2000: PR I NT " THE " ; K* 

150 P(1)-V5 60SUB 2000: GDSUB 1500 

160 PRINT " THE " ; K*: P (2) -V: GOSUB 1500 
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165 N==^2 

166 IF" P<1)-1 THEM P<1)-11 

168 IF' F' ( 2 ) = 1 AND F=' ( 1 ) < > 1 1 THF£N F' ( 2 ) - I 1 
1 70 IF p ( 1 ) 4P ( 2 ) =2 1 THEE:M PF^ I NT : PR I NT " 

PONTOON ! ! 
180 SP==P(1)+P(2) 
200 REM PLAYER CHOICES 
210 PRINT "TWIST/STICh::/BUY/FOLD ?" 
220 GET £ 1 , A : A*:=CHR<I; ( A ) 

230 IF A*<>"T" AND A<|i<>"S" AND A*<>"B" A 
MD A*<>"F" THEN 220 
240 IF A*-"F" THEN PRINT "O.FC YOU L 05F 

YOUR STAKE ":G0SUB 1500 s GOTO 110 
250 IF A*--="S" THEN 400 
260 IF A1;=:::"B" THEN GDSUB 1700: PRINT "O.K 

GOOD L1JCF<" 
270 N=N+1:REM NEXT CARD 
280 GDSUB 1500:G0SUB 2000 
290 PRINT "THE ";K^ 
300 P(N)==V:SP=0 
3 1 FOR L.= 1 TO N : SP-SP+P ( L ) : NE X T L 

320 IF SP>21 THEN PRINT "BUST " : GOT 

400 

330 IF N>4 THEN PRINT "FIVE CARD TRICF:::. . 

II 

340 IF SP-21 THEN PRINT "TWENTY ONE 



350 GOTO 210 

400 REM NOW COMPUTER PLAYS 

410 PRINT : PR I NT "MY CARDS :" 

415 GOSUB 1500 

420 MT=-0: GOSUB 2000: PRINT " THE "; F;* 

430 M(1)-V:G0SUB 1500: GOSUB 2000 

440 PRINT " THE "; h::* ;; GOSUB 1500: M (2) -V 

450 IF M(l)=l THEN M(l)-ll 

460 IF M ( 2 ) =:^ 1 AND M (1 ) < > 1 1 THEN M ( 2 ) == 1 1 

470 IF M ( 1 ) 4M ( 2 ) =2 1 THEN 600 

480 IF P(l) i-P(2)-21 AND N=:2 THEN 700 

490 MT=M( 1 ) +M(2) 

500 IF MT<SP AND SP<-21 THEN 510 

503 IF N<5 THEN PRINT "I WILL STICH: " : RQ 

SUB 1500: GOTO 600 
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510 PRINT "I WILL TWIBT. . .. " 

520 GOSUB 2000::GOS5UB 1500 

530 PRINT ■' THE " U<^ 

540 MT-MT+Vn GOSUB 1500 

545 IF MT>21 THEN PRINT "I AM BURT... " 

GOTO 700 

550 GOTO 500 

600 REM PLAYER LOSES 

610 PRINT : PR I NT "YOU LOSE THAT HAND" 

620 GOSUB 1500: GOSUB 1500 

699 GOTO 100 

700 REM COMPUTER LOSES 

710 PRINT SPRINT "YOU WIN THAT HAND" 

720 GOSUB 1500:: GOSUB 1500 

730 M=:Mi-BET 

799 GOTO 100 

BOO REM HERE WHEN PLAYER IS BROKE 

BIO PRINT : PRINT "YOU ARE BROKE" 

020 GOSUB 1500 

830 PRINT "COME BACK ON YOUR I UCKY DAY" 

840 GOSUB 1500 

050 END 

1000 REM RANDOMOMIZE PACK 

1005 PRINT "+4+++ NEW PACK + + ++-I-" 

1010 FOR L-1 TO 52 

1020 C(L)=L:NEXT L 

1030 REM SHUFFLE 

1040 FOR L=l TO 100 

1050 IF v;>io THEN V=10 

1 055 A- I NT ( RND ( 1 ) *52+ 1 ) 

1 060 B- I NT ( RND ( 1 ) #52+ 1 ) 

1070 T=C(A) :C(A)=C(B) 

lOaO C(B)=:T 

1090 NEXT L 

1095 Q=l 

1099 RETURN 

1500 REM A SHORT DELAY 

1510 FOR WW=1 TO 100: NEXT WW: RETURN 

1700 REM INCREASE BET 

1710 PRINT "BY HOW MUCH "; 

1720 INPUT BB:IF M-BB<0 THEN PRINT "YOU 

HAVEN ^T GOT THAT MUCH MONEY": GOTO 1710 
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1 730 BEIT-BET+BB : M-M--BB 

179? RETURN 

2000 REM CARD IN l< 

2001 REM NAME IN K* 

2010 K-C(Q) :Gi=a+l: IF Q=53 THEN 60SUB lOO 

0:Q:=1 

2020 S= I NT ( ( K- 1 ) / 1 3 ) : V-K- 1 3*S : S-S+ 1 

2030 ON V GOBUB 2 1 00 ,2110,21 20 ,2130,2 140 

, 2 1 50 ,2160,21 70 , 2 1 90 , 2 1 90 , 2200 , 22 1 O , 2220 

2040 ON S GOSUB 2300, 2310, 2320, 233o' 

2050 IF V>10 THEN y==10 

2099 RETURN 

2100 K*="ACE "."RETURN 
2110 K:*="TW0 ": RETURN 
2120 K*-" THREE ": RETURN 
2130 K*="FOUR ": RETURN 
2140 K*="FIVE ": RETURN 
2150 K*="SIX ": RETURN 
2160 K*=" SEVEN ": RETURN 
2170 K*="' EIGHT ": RETURN 
2180 K*="NINE ": RETURN 
2190 K*="TEN ": RETURN 
2200 l<*^= " J ACK " : RETURN 
2210 K*-"QUEEN ";; RETURN 
2220 1<*-"KING ": RETURN 

2300 Kt. (LEN(K*)+1)==" OF CLUBS ": RETURN 

2310 K*(L.EN(I<*)+1 )=::•■ OF DIAMONDS " : RETUR 

N 

2320 K*(LEN(K*)+1)=::" OF HEARTS ": RETURN 

2330 K*(LEN(K*)+1)-" OF SPADES ": RETURN 
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WIZARDS and WARLOCKS 




If you have heard of Dragons and Dungeons and the like 
then you will have an idea what you are about to enter, 
but if you are new to this strange business then we had 
better give you a couple of clues. 

As a good Wizard (Warlock seems to be the feminine of 

the species and we would be the last to offend any female 
Wizard) you are to be found on the sixth level of a 

infinitely deep maze. All you haveto do isto escape to the 
surface. Easy, huh? Well, we have put several objects in 
your way but you should overcome all of these with your 
'character attributes!' 



How to play 

To escape you must move through the six floors above 
you, but you can descend if you wish to increase your 
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score, before you reach the surface. You will be given a 
choice of decisions to make, based on your 'attributes' of 
strength, health and magic. 

To make any move simply press the keys without using 
Return key. After each move the screen will scroll 
upwards so you will have a brief memory of your 
previous move. 

We shouldn't tell you but we think that running away 
from the monsters is by far the smartest move. They tend 
to fight dirty and can do you an awful amount of damage. 

To end, if you are tired and can't escape, press BREAK. 



Programming Hints 

You can change your skills by altering the values of your 
'character attributes' in Line 80. This will allow the more 
callow amongst you to assume the skills of a superman 
and live longer. 

If you are really the coward and miserable poltroon we 
always thought you were then you will change Line 60 
after LV = to 1 . This means that you will begin on level 1 
and should be able to escape without any trouble. 

Cowardly varlet, stay on level 6 and fight your way out. 



The Program 

10 REM WIZARDS AMD WARL.0CKS5 

20 D I M N$ ( eC) ) , MG ( 1 ) „ BT ( .1. ) , F' I ( 1 ) , A1; ( 70 
) 

25 DIM T$(10) ,E*(6) 
30 G7OSUB 1000 
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5IXTH leve;:l 



40 C5RAPHICS 

50 DPEN £1,4,0, "K: " 

^:.0 L..V==6:REM STUCK ON 

70 SC--=0 

£30 ST= 1 : HL=:ST +5 s MG=^2 

99 F;EM NEW LOCATION 

100 E*(l,6)=" 

101 SC=SC+1 

102 IF" LV^O THEN 900 
105 M^^Ml) 
107 riG==MG+i 

109 IF HLa3T+5 THEN HI - 

110 IF RND(l) >0.7 THEN 
120 IF RND(1)>0.7 THEN 
130 IF RND(l) >0.7 THEN 
140 IF RND(l) >0.7 THEN 
150 IF RND(1)>0.95 THEN 
160 IF RND(1)>0.95 THEN 
165 IF E*='" " THEN 
170 PRINT "YOU ARE IN A 
180 PRINT : PRINT "THFRF 
190 PRINT " "sE* 
200 PRINT 

210 IF RND(1)<0.7 THEN 300 

220 M- 1 : A- 1 NT ( RND ( 1 ) « 1 0+ 1 ) : P- 1 NT ^ RND M ) * 

1 0+ 1 ) 

230 PRINT •• THERE IS A ";:X=A:GOSUR 
240 X=B:GOSUB 1600: PR I NT " HERE" 
300 PRINT "WHAT DO YOU WANT TO DO" 



^^HL-il 
Et. (1 )=--:" N 

E*(2)-n"E 

E!!;(3)="S 
E1;(4)=:="W 
E*(5)="U ' 
Eli (6)=="D" 
1 1 

NEW ROOM" 
ARE EXITS 



1 500 



T:T*=CHR*(T) 
"F" AND T*< 
THEN PRINT 



310 PRINT 

RUN" 
320 GET £1 
330 IF T*< 
ND T*<>"R" 
PRINT :GOTO 300 
340 IF T*-"M" AND 
N^T WALK AWAY 
350 IF T*=^"F" 
IGHT WHAT ! ! ! 

360 IF T*=:::"R" 

OD EXERCISE. . 



PRINT "FIGHT / PARRY / MOVE 



>"P" AND T*<>"M" 
' Mi PARDON ! ! ' 



/ 



A 



M.ri THEN 
FROM HERE ! " ; 
AND M=0 THEN 
:GOTO 300 
AND M=0 THEN 
I SUPPOSE... 



PRINT "YOU 
GOTO 300 
PRINT " I " 1 



CA 



PRINT ' 
" : GOTO 



GO 



1 00 
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370 IF- T*=:"R" AND RND(1)>0.6 THEN PRINT 

" YOU DIDN^T GET AWAY. . . " : GOT(D 500 

380 IF T*="R" THEN 100 

385 IF T*-"F" THEN PRINT "....BE ABSOLUTE 

L..Y CLEAR,. . „":PRINT " THIS IS YOUR IDE 

A": GOTO 500 

390 IF T*-"P" AND M-0 THEN PRINT "...GOO 

D PRACT I SE . . . " : PR I NT " NOW . . . " : GO 

TO 300 

400 IF T*="P" THEN PRINT "...HANG ON SUN 

SHINE": GOTO 500 

410 PRINT : PR I NT "WHICH DIRECTION " ; E* 

420 PRINT "? "; 

430 GET £ 1 , T : T$==.CHR* ( T ) : PR I NT T* : F-0 5 FOR 

L=l TO 6 
440 IF E*(L,L)==T* THEN F=l 

450 NEXT L:IF F=0 THEN PRINT "....YOU CA 
N'T GO THAT WAY": GOTO 410 
460 IF T1;-="U" THEN LV-LV 1: PRINT "YOUn...L. 

GET OUT OF HERE YET..." 
470 IF T*-"D" THEN LV-LV+1 : PRINT "DEEPER 

AND DEEPER DELVING IS": PRINT "PAD FOR Y 
OUR HEALTH" 
480 GOTO 100 
500 REM FIGHT MONSTER 

505 S== I NT ( RND ( 1 ) *ST ( B ) + 1 ) : M= I NT ( RND < 1) *M 
G(B)+1) 

510 PRINT : PRINT "CAST SPELL / FIGHT / R 
UN" 

520 GET £1,T:T$=CHR*(T) : IF T*<>"C" AND T 
*<>"F" AND T$<>"R" THEN PRINT " '^'^'^ EH "^^ 
??":GOTO 510 
530 IF T*="R" AND RND(1)>0.15 THEN PRINT 

"YOU CAN'T GET AWAY": GOTO 600 
540 IF T*="R" THEN 100 

550 IF T*="C" AND NG->0 THEN PRINT "YOU 
HAVE USED UP ALL YOUR MAGIC": GOTO 600 
560 IF T*="F" AND RND(1)>0.7 THEN PRINT 
" YOU M I SSED " : GOTO 600 

570 I F T*- " F " THEN S-S- I NT ( RND ( 1 ) -K-ST-i- 1 ) : 
PRINT "A HIT HOW VIOLENT" : GOTO 600 
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580 T= I NT ( RND ( 1 ) ■»< M(3 + 1. ) : B-G T : MG=:^MG T : PR I 

MT " . . ROW. . ZAP- . . WHAT A PRETTY FLASH'" : G(3 

TO 600 

600 REM MONSTER ATTACK 

610 IF S<-0 THEN PRINT "..YOU KILLED THE 

" ; : X-A ;; GOSIJB .1 500 : X = E-i : GOSUB 1 600 : PR J NT 
: GOTO 650 

620 T= I NT ( RND ( 1 ) * 1 00 ) : I F T >F KB) AND M-^- ■: 
THEN PRINT "..WHAM.. A SPELL. .": GOTO 64 


630 PRINT "THE FIEND TRIES TO HIT YOU": I 
F RND(1)>0,7 THEN PRINT "BUT MISSES 
C^OTO 648 
633 PRINT "AND SUCCEEDS" 

636 HL=HL INT (RND ( 1 ) xS+l) : PRINT "OH DEAR 

! MORE DAMAGE "s GOTO 645 

640 T= I NT (RND ( 1 ) *M+1 ) : M=M-T: HL=HL-T 

645 IF HLOO THEN 800 

648 PRINT "STILL ALIVE, BETTER THAN I TH 
OUGHT" 

649 GOTO 500 

650 REM CREATURE IS DEAD 

660 PRINT "WELL DONE BRAVE KNIGHT..." 

670 T= I NT ( RND (!)><( MG ( B ) *2+ST ( B ) ) ) *5 

680 PRINT "HAVE "TF;" PIECES OF GOl D" 

690 SC=SC+T:M=0 

695 GOTO 180 

800 REM PLAYER IS DEAD 

810 PRINT : PRINT 

820 PRINT "THE WHOLE COURT WILL MOURN" 

830 PRINT "THE PASSING OF A BRAVE WARRIO 

R" 

840 PRINT "KNOWN FOR HIS VALOUR AND STRO 

NG WILL" 

850 PRINT " (I.E. YOU'RE DEAD MATE) 



860 FOR L=l TO 600: NEXT L 

870 PRINT "BY THE WAY YOU SCORED " 5 SC 

890 END 

900 REM PLAYER GOT OUT 

905 GRAPHICS 0:PDKE 752, 1:F'R I NT 
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907 POSITION 0,1 2: PRINT £6?" YOU ES 

GAPED" 

910 FOR L=l TO 255: POKE 710, L: POKE 712, ( 

255-L) 

920 NEXT L 

930 PRINT "YOUR SCORE IS :" 

940 PRINT " ";SC 

94a PRINT "PLUS A SMALL. PSYCHOLOGICAL AD 

VANTAGE" 

949 FOR L=l TO 500: NEXT L: PR I NT : PRINT " 
. . .YOU'RE ALIVE" 

950 GET £1,A 
960 END 

1000 REM READ IN CHARACTERISTICS 

1001 REM OF MONSTERS 
1010 RESTORE :N*="" 
1020 FOR L=l TO 10 

1 030 READ T* : N* ( LEN ( N$ ) i- 1 ) .-rj* 

1040 NEXT L 

1050 A*="" 

1060 FOR L^l TO 10 

1070 READ T*: A*(LEN(A*)+1)=T* 

1080 NEXT L 

1100 FOR L==l TO 10 

1110 READ A,B,C 

1120 MG(L)==A:ST(L)::n:B:FI (L)=-C 

1130 NEXT L 

1199 RETURN 

1500 REM PRINT THE XTH ADJECTIVE 

1510 Q=(X~1)*6+1 

1520 PRINT A*(Q,Q+5);" "5 

1530 RETURN 

1600 REM PRINT THE XTH NAME 

1610 Q=(X-1)*7+1 

1620 PRINT N*(Q,Q+6);" "; 

1630 RETURN 

9000 DATA ELF , DWARF , TROLL .WIZARD 

, TOAD , WARLOCK 
9010 DATA ZOMBIE .BEETLE , ORC ,CHIMER 
A 

9100 DATA CRUEL .GREEDY, FOUL . WICKED. SL 
I MY , SMELLY, CLEVER 
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911C 


DATA 


LARGE ,SLY 


, HONEST 


920(1 


DATA 


5,5, 10 




92K 


DATA 


1,8,70 




922(: 


DATA 


0, 15, 100 




923r 


DATA 


20,7,5 




924(: 


DATA 


0, 20, 100 




925C 


DATA 


0,3, 100 




926(1 


DATA 


3 ,10, 65 




927(: 


DATA 


0,5,1 00 




928(1 


DATA 


2,8,50 




929C 


DATA 


10,40,50 
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WORD SQUARE 




This program is designed to test the wits of members of 
your circle who think they are l<een of eye and sharp of 
brain. 

The screen will generate a square of alphabet which will 
contain hidden words. The words can be written 
horizontally, vertically, diagonally and even backwards. 



How to play 

When you have identified a word type in the answer and 
press RETURN. You should note that you may identify 
small words such as 'of and 'for' which appear simply 
because of the structure of the screen, but are not 
actually acceptable to the computer. 
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Programming Hints 

To make the program challenging you should have 
someone else enter the data words which are in the end 
of the program. Otherwise you will, of course, know the 
words you are seeking. 

The Program 



10 REM WORD SQUARE 

20 D I M S* ( 225 ) , M* (1 O ) , Q$ ( 1) 

25 DIM P(10) , X (10) , Y(10) 

27 DIM A* (10) 

2iD DIM W(10) 

30 G03UB 1000 

40 GOSUB 2000 

50 FOR L=l TO 10:W(L)=0:NEXT L 

60 SC=0 

SO GOTO 100 

90 PRINT "BE SENSIBLE": FOR L=l TO 100:NE 

XT L 

100 PRINT "YOUR GUESS "; 

110 INPUT A$ 

115 IF LEN(A*)=0 OR LEN(A*)>10 THEN 90 

120 GOSUB 4000 

130 IF F=0 THEN PRINT "NOT THERE": GOTO 4 

90 

140 SC=SC+1 

150 REM HIGHLIGHT DISCOVERED WORD 

155 IF W(F)-1 THEN PRINT "YOU^VE HAD THA 

T":GaTO 490 

157 W(F)=1 

160 B==INT(P(F) /15) : A-P(F)-15*B 

170 FOR L=l TO 

ISO LOCATE A,B,D 

190 POSITION A, B: PRINT £6; CHR* (D+32) 

200 A=A+X (F> : B=B+Y(F) 

210 NEXT L 

215 IF SC=10 THEN 300 
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220 PRINT "WELL DONE ";SC;" CORRECT" 

230 GOTO 490 

490 FOR L=l TO 50: NEXT L 

500 GOTO 100 

BOO REM HERE WHEN TEN FOUND 

a 10 PRINT SPRINT : PRINT 

820 PRINT "YOU FOUND THEM ALL" 

830 PRINT : PRINT "WELL DONE" 

840 FOR L=l TO 500: NEXT L 

850 END 

1000 REM READ IN DATA AND STORE IN SQUAR 

E 

1003 GRAPHICS 1+16 

1006 POSITION 0,10: PR INT £6;" ONE MOM 

ENT" 

1010 S*="":FOR L=l TO 15 

1020 S*(LEN (S*) +1) =" ":NEX 

T L 

1025 RESTORE 9000 

1030 FOR 1=1 TO 10 

1 040 READ N* : N=LEN ( N* ) 

1 050 ON I NT ( RND ( 1 ) *a+0 . 5 ) GOSUB 3000 , 30 1 

0, 3020, 3030, 3040, 3050, 3060, 3070 

1 060 A= I NT ( RND ( 1 ) * 1 5 ) : B= I NT (RND ( 1 ) * 1 5 ) 

1 070 C=A+X (I ) *N: D = B+Y ( I ) -*N 

1080 IF C<0 OR D<0 OR 014 OR D>14 THEN 

1 050 

1090 L=-l 

1095 L=L+1 

1100 a=l+(B+Y(I)*L) *15+Ah-X ( I ) »L: Q$=S* (Q, 

Q) 

1110 IF Q*=" " THEN 1130 

1120 IF Q*<>N*(L+1) THEN 1050 

1130 IF LON-1 THEN 1095 

1140 FOR L=0 TO N-1 

1150 Q=1+(B+Y( I) *L)*15+A+X (I ) *L 

1160 S*(Q,(3)=N*(L+1) 

1170 NEXT L 

1175 P(I)--=A+B*15 

1180 NEXT I 

1190 FOR L=i TO 225 
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1200 IF S$(L,L)=" " THEN S* (L, L) =CHR* (65 

+INT(RND(1)*26) ) 

1210 NEXT L 

149? RETURN 

2000 REM DISPLAY SQUARE 

2010 GRAPHICS 1 

2020 FOR L=0 TO 14 

2030 POSITION 0,L 

2040 PRINT £6;S*(L*15+1,L*15+15) 

2050 NEXT L 

2199 RETURN 

3000 X ( I ) =- 1 : Y (I ) =- 1 : RETURN 

30 10 X ( I ) =- 1 : Y (I ) =0 : RETURN 

3020 X ( I ) =- 1 : Y ( I ) = 1 : RETURN 

3030 X (I ) = 1 : Y ( I ) =- 1 : RETURN 

3040 X (I ) = 1 : Y ( I ) =0 : RETURN 

3050 X (I ) = 1 : Y (I ) = 1 : RETURN 

3060 X ( I ) =0 : Y ( I ) = 1 : RETURN 

3070 X (I > =0 : Y ( I) =- 1 : RETURN 

4000 REM CHECK IF RESPONSE IS VALID 

4010 RESTORE 9000 

4020 F=0 

4030 FOR L=l TO 10 

4040 READ N* 

4050 IF N*=A* THEN F=L: G=LEN (N*) 

4060 NEXT L 

4099 RETURN 

8999 REM WORD LISTS 

9000 DATA ATARI, VIDEO, COLOUR 
9010 DATA SOUND, GRAPHICS, SPACE 
9020 DATA FUTURE, GAMES, FUN 
9030 DATA COMPUTER 



S.I.M.P.E.R. 
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At last, you say, in a computer book there must be an 
acronym somewhere because the whole business is full 
of Poke, Peek, Byte and Ram. Well, our title stands for 
Semi Intelligent Machine Psychologist with Extendable 
Response. 

What, you ask, has that got to do with the time of day? 

We will explain. 

This is your chance to use your computer to make fools 
out of all your friends, party guests, loved? ones etc. Your 
SIMPERING Atari will ask questions and respond to your 
answers with 'semi-intelligent' comments. Can you take 
the risk? 
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How to play 

Your computer will ask you to enter statements about 
yourself. 

Type in your comments, making them as long as 
possible, and your 600XL will make it's considered 
comment on your character. 

It's a little like having a 'shrink' at home. 



Programming Hints 

We have given you a selection of appropriate data 
(words) that might make fun for your family but you can 
change, add or delete these lines and cause fun and 
games at your next party. 

If you have added a memory expansion unit to your 
computer you can add to the data statements from lines 
5000 onwards and give the computer a much wider 
choice of response. 



Tlie Program 






10 


REM SIMF'ER 






20 


DIM QitdOO) , A*(50) 




21 


GDBUB 3500 


: OS-U 




30 


DIM 0*(20) 


,T1;(20) 




40 


Q*="HELLO, 


MY NAME 


IS SIMPER 


E TO DISCUSS 


YOUR PROBLEMS 




TELL ME ABOUT YOUR!; 


3LEF" 


50 


BS-0 






60 


0S=0 






IOC 


) PRINT Q*:l 


PRINT 





I'M HER 
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102 

"AT LAST SOME 

OFTEN BEHAVE 

2) -"EH" OF^ M> 



.110 INPUT A*:. IF A*-"" THEN 
112 IF A*="YES" THEN PF^INT 
DETEF^M I NAT I ON " : Q1;== " DO YOU 
QUITE SO FIRMLY": GOTO 100 
115 IF A<r>-"PARDON" OR A* (1 
-"WHAT" THEN 100 

117 IF A*=:"NO" THEN PRINT "SHORT AND TO 
THE POINT": IF OS-0 THEN PRINT "RTVF MF R 
OMETHING TO GO ON": GOTO 100 
: GOGUB 1 200 
": A$(2)=0* 
UOO THEN GOSUB 3000: GOTO 



120 GOSUB 1100: 
130 0<t=A*:A*=" 
140 IF V==0 AND 



1 00 
160 IF 
El 3000: 
200 IF 



■O THEN U^OS; 



V=0 AND OJ 
:GOTO 100 

V==0 THEN GOSUB 4000: GOTO 100 
210 GOSUB 3500: OS=U 
220 GOTO 100 
1000 REM SEARCH FOR T* IN At. 

1010 F--:::0 

1013 IF A*^^-T* THEN F-1: RETURN 

1016 IF LEN(A*)<=LEN(T<r.) THEN RETURN 

1020 FOR L==2 TO LEN(A*) LEN(T1;)+1 

1 025 IF Af. ( L-- 1 , L- 1 ) < > " " THEN 1 040 

1 030 IF A* < L , L+LEN ( T* ) 1 ) ^:::T* THEN F- .1 

1040 NEXT L: RETURN 

1100 REM RETURN VERB NUMBER IN 

1110 V^Or. RESTORE 5000 

1120 READ N:FOR Q-1 TO N 

1130 READ T*: GOSUB 1000: IF F-1 

1140 NEXT Q: RETURN 

1200 REM RETURN NOUN NUMBER IN 

1210 U=0: RESTORE 6000 

1220 READ N:FOR 0=^1 TO N 

1230 READ T$: GOSUB 1000: IF F=:l 

1240 NEXT Q: RETURN 

3000 REM FIND REPLY SENTANCE 

3010 RESTORE 20000 

3020 FOR L=0 TO (U- 1 ) *3+INT (RND < 1) * 

3030 READ Q*:NEXT L 

3040 RETURN 



0:G09U 



V 



THEN V=Q 



L) 



THEN U=Q 
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3500 REM CHOOSE SEMTANCE 
35:10 RESTORE 10000 

3520 FOR L-0 TO (V 1 ) *34lNT (RND (1 ) *3) 

3530 READ G]*:MEXT L 

3540 RETURN 

4000 REM CONJURE A RESPONSE 

4010 BS-BS+1:IF BS-7 THEN PRINT "SORRY.. 

. YOUR TIME IS UP": END 

4020 RESTORE 30000 

4030 FOR L=l TO BS 

4040 READ Q*:NEXT L 

4050 RETURN 

5000 DATA B 

50 1 DATA LOVE , HATE , OWN , WANT, FLY , WALK , TA 

KE,GIVE 

6000 DATA 9 

60 1 DATA CAR , COMPUTER , HOL I DAY , MONEY , TFI 

E, MUSIC, VIDEO, FOOD 

6020 DATA FISH 

9999 REM REPLY DATA 

10000 DATA HOW DO YOU KNOW THAT IT^S I OV 
E 

10001 DATA HOW LONG HAVE YOU FEl T I IKE T 
HIS 

10002 DATA WHEN DID THIS FEELING START 

10010 DATA ARE YOU SURE THAT YOU'RE NOT 
BEING OVER HASTY, WELL IF YOU'RE SURE 

ABOUT IT THEN IT'SGOOD FOR YOU 

10011 DATA IS THIS FEELING VERY INTENSE. 

DO YOU REALLY MEAN IT 

10020 DATA THAT'S VERY POSESSIVE OF YOU, 
WOULDN'T 'CARE FOR' BE A BETTER WAY OFPU 
TTING IT 

10021 DATA BUT DO YOU OWN YOUR SOUL. OR 
HAVE YOU TRADED IT WITH CONSUMER SOCIETY 

10030 DATA PLEASE CLARIFY YOURSELF. LOVE 
OR WANT THE FIRST IS MORE POLITE 

10031 DATA THAT'S VERY IMPULSIVE 

10032 DATA I WANT.,. . I WANT. . . BELLOC HAS 
A SUPRISEFOR YOU 
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10040 DATA DO YOU SOMETIMES WISH THAT YO 
IJ COULD FLY, AEROPLANES ARE SO EXPENSIVE 

AREN-T THEY 

10041 DATA FLY ME TO THE MOON... DO YOU T 
HINK THATYDU WOULD ENJOY THAT 

10050 DATA NOTHING BEATS SHANk- S PONY,WA 
LKING IS VERY GOOD EXERCISE 

10051 DATA IT MIGHT BE QUICKER BY CAR 

10060 DATA PERHAPS IF YOU SAID PLEASE I 
RST IT MIGHT HELP, YOU ^ RE SHOWING THE P 
OSESSIVE TRAIT AGAIN 

10061 DATA HOW WOULD YOU TAKE THAT 

10070 DATA GIVING IS GOOD FOR THE CHARAC 
TER. I HOPE YOU DO A LOT OF IT 

10071 DATA CHRISTMAS IS A TIME FOR RTVIN 
G 

10072 DATA DO YOU RECIEVE MORE THAN YOU 
GIVE. BE HONEST 

20000 DATA DO YOU LIKE FAST CARS, ARE YOU 
GOOD MECHANICALLY, DO YOU LIKE MOTORWAYS 
. THEY ^' RE TOO FAST FOR ME 

20010 DATA YOU OBVIOUSLY LIKE COMPUTERS. 
I CAN TELL THAT YOU ARE A NATURAL AT 

THE KEYBOARD. 

20011 DATA DO COMPUTERS WORRY IN ANY WAY 
, ISN'T IT A BIT UNNERVING TALKING TO A C 
OMPUTER LIKE THIS 

20020 DATA WOULD YOU PLEASE TAKE ME WITH 
YOU ON YOUR HOLIDAY, THAT'S A GREAT WAY 
TO GET AWAY FROM I TALL 

20021 DATA DO YOU LIKE TO GO ABROAD. OR 
PERHAPS YOU PREFER TO STAY AT HOME. 

20030 DATA MONEY IS EVERYONE'S FAVOURITE 
PROBLEM. TALKING OF MONEY I HAVE THESE R 

ATHER LARGE FEES 

20031 DATA HOW DO YOU EARN YOUR MONEY. A 
RE YOU BY ANY CHANCE A FORTUNE TELLER. 

20032 DATA WHAT IT MUST BE TO BE A MI LI I 
ONAIRE ALL THAT CAVIAR. IT'S ENOUGH TO 

MAKE ANYONE ILL 
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20040 DATA I^M WORRIED ABOUT THE PROF-US I 
ON OF TELE-THIS AMD TELE-THAT DEVICES 

20041 DATA WHERE DO YOU WATCH TELEVISION 
MOST OFTEN 

20042 DATA ARE YOU ADDICTED TO TELEVTSIO 
N LIKE SOME PEOF'LE I KNOW. 

20050 DATA WHAT TYPE OF MUSIC DO YOU LIK 
E BEST, I USED TO ADORE SIMON AND GARF-UNK 
EL. WHAT DO YOU THINK OF THEM 

20051 DATA SO MUCH MODERN MUSIC IS TOO L 
DUD. I GET LOTS OF CASES CONNECTED WIT 
H DISCO'S 

20060 DATA DO YOU USE A VIDEO RECORDER A 
T HOME, HOW LONG HAVE YOU BEEN USING A VI 
DEO 

20061 DATA IF YOU VIDEO TOO MUCH THEN YO 
U WON'T HAVE ANY TIME TO NOTICE THF RE A 
L WORLD 

20070 DATA SO YOU EAT TOO MUCH DO YOU,FO 
OD IS ALL VERY WELL BUT YOU MUSN'T BE 
BSESSED. YOU'LL GET FAT 

20071 DATA WHAT'S YOUR FAVOURITE MEAL 

20080 DATA WOULD YOU LIKE TO TALK ABOUT 
FISH, HOW ABOUT SOME MICE FISH AND CHIPS 

20081 DATA HAVE YOU EVER SPENT A DAY BY 
A RIVER AND NOT CAUGHT ANYTHING 

30000 DATA TELL ME MORE ABOUT YOUR TALEN 
TS. DO YOU PLAY THE CONCERT PIANO ? 
30010 DATA WHAT KIND OF HOBBIES HAVE YOU 
GOT 

30020 DATA WHERE DO YOU WORK. OR ARE YOU 

AT SCHOOL. 
30030 DATA HOW ABOUT A BIT OF WORD ASSOC 
I AT I ON. +++ MATHS +•++ 
30040 DATA WHAT DOES THE WORD ' MACKEREl ' 

SUGGEST TO YOU 
30050 DATA I'M AFRAID THAT I WILL HAVE T 
GO IN A FEW MOMENTS. I'M EXPECTING A 
VERY IMPORTANT CLIENT 



CATALOGUER 
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"All computer books are written for boys and men to play 
games on and there is never anything that is of any use to 
girls or harassed housewives." 

We have heard that cry many times and we don't agree 
that it's true as we think that many of the programs in this 
book can be used by everyone in the family. This 
program is definitely foreveryone. 

Using this program you can list, store, and catalogue for 
future use record collections, cookery recipes, phone 
numbers, football team detail etc. 



How to use 



You will be asked which option you wish to take from a 
'menu'. 
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Select your option. There is no need to press another key 
as the computer will move to your selected option. When 
making further moves press the RETURN key. 

Remember to press the SPACE key to start the save or 
load operation. 



Programming Hints 

If you have a disk drive facility then change the two open 
£2 statements as shown below 

Open £2,4,0, "c:" becomes open £2,4,0, "d : DATA" 

and 

Open £2,8,0,"c:" becomes open £2,8,0, "d:Data" 

The Program 

REM CATALOGUER 

20 OF'EN £1,4,0, "l<: " 
30 DIM R* ( 500 ) , I $ ( 2000 ) 
40 DIM S*(:l. 1) ,T*(4.l) 
50 C=0 

99 REM MAIN MENU 

100 GRAPHICS On PR I NT " TATA 
LOG" 

1 10 PRINT " =r::::::.:...:n:.n=:::n::r.M 

120 PRINT : PRINT : PRINT 

130 PRINT "1, LOAD DATA FROM TAPE": PR IN 

T 

140 PRINT "2., CLEAR DATA IN MEMORY": PR I 
NT 

150 PRINT "3. SAVE DATA TO TAPE": PR TNT 

160 PRINT "4. SEARCH FOR RECORD" : PRINT 

170 PRINT "5. INPUT DATA TO MEMORY "-PR I 

NT " '■ 
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1 80 
]. 90 
200 
2 1 
00 
300 
1000 
1010 
1020 
1 030 
1 035 
1 040 
1050 
1 060 
1 070 
2C)00 
2010 

RETURN 
2020 C=0 



PRINT SPRINT : PR I NT 
PRINT " YGUR CHOICEE' 
GET £1,T: IF T<49 OR T>5:: 
N T -- 4 B G S U B 1 C) , 2 , 



THEN 200 
3000, 4000, 50 



GOTO 100 
OPEN £2,4,0, 
INPUT £2,C 
FOR L=^l TO C 
T^^l+(l....-l ) *10 
I^ 1 i (I....--1 ) )'40 



"C: 



INPUT £: 



£3*,T* 



R1;(T,T + 9)=S*: If. (I 
NEXT L 

CLOSE £2: RETURN 
PRINT "ARE YOU SURE 
GET £l,T:T<t-CHR$(T) : 



I-i-39):=T* 



(Y/N) 
IF T* 



"Y" THEN 



RETURN 

3000 IF C=0 THEN RETURN 

3010 OPEN £2,8,0, "C: " 

3020 PRINT £2,C 

3030 FOR L=l TO C 

3040 T=1+<L-1 ) »10 

3050 I = 1+(L.-1)*40 

3060 S*=-R* ( T , T+-9 ) : T$== I * (I , I +39 ) 

3070 PRINT £2,S*,T* 

3080 NEXT L 

3090 CLOSE £2: RETURN 

4000 IF C=0 THEN RETURN 

4010 PRINT "RECORD NAME "3 

4020 INPUT S*: IF 3*=="" THEN 40 lO 

4030 FOR L=l TO C 

4040 T==:l +• (L-1 ) *10 

4050 I = H-(L-1)*40 

4060 IF R*(T,T-i-LEN(S*)-l)=S$ THEN PRINT 
R* ( T , T 4 9 ) : PR I NT I * ( I , I +39 ) 

4070 NEXT L 

4080 GET £1,T 

4090 RETURN 

5000 C=C+1:IF C^=51 THEN C=50: RETURN 
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5010 PRINT "RECORD MAMF " ; 

5020 INPUT E5*:IF S*-"" THFN 501.n 

5025 IF S*="QUIT" THEN C-C- 1 : f;:ETURN 

5O30 INPUT T*:IF T*-"" THFN 50.10 

5040 IF T1;-"QUIT" THEN C-D- J : RETURN 

"043 S* ( LEN ( S* ) + 1 , 1 1 ) nr ■■ 

046 T* ( LEN ( Tli ) ■+ .1. , 4 1 ) ==: •' 



u 



5050 T=1+(C-1)*10 

5060 I=1+<C-1)*40 

5070 R* (T, T+9) -B*: I* (I , T+39) =T«; 

5080 GOTO 5000 
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SPACE CITY 




Returning from deep space in your shuttle you are faced 
with the dilemnna of landing accurately and at the correct 
speed in the middle of space city. 

Slip to either side and you will hit one of the newly built 
towers. Land at too great a speed and you will smash 
yourwaythrough the specially prepared landing pad and 
explode. A further problem is that if you over-correct you 
will drift off into space — forever. 

By the way, you only have a limited amount of fuel in 
your tanks so, if you don't get down in time you will drift 
into the city. 



How to play 

To use the retro rockets to 
movement press keys Z and X. 



assist your sideways 
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Use keys / and + to decrease or increase the thrust from 
the main engine and ensure a gentle landing. 

There are several levels of difficulty so if you shoot off 
into space you will be returned to the same level of play. 



Programming Hints 

To make the game easier, or more difficult, you can alter 
the amount of fuel available by changing the value of F in 
Line 55 atthe beginning of the program. 



The Program 

10 REM SPACE CITY 

15 DIM K ( 7 ) 

17 G^^5:REM GRAVITY 

20 GRAPHICS 5+16 

30 GOSUB 1000 

35 POKE CI, 23 

40 GOSUB 2000 

50 H=40:REM HEIGHT 

55 F=300:REM FUEL 

60 V=:2:REM VELOCITY 

70 T=3:REM THRUST 

90 X=100:REM HORIZONTAL POSN. 

95 S^-=0:REM SIDEWAYS VELOCITY 

100 REM MAI^4 DESCENT LOOP 

102 SOUND 0,50, 6, T+5 

105 F-F-T:IF FOO THEN F=0: T=0: SETCOLOR 

4,3,2 

110 A=X:B-H 

120 V=V+(G-T)/10 

130 H=H+V: X=X+3 

132 IF X<30 OR X>210 THEN SOO 

134 IF H<20 THEN 850 

140 POKE 53273, 1 
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150 G(D3UB 3000 

160 IF PEEK (53252) <>0 THEN 700 

200 IF PEEK (764) =23 AND S>-3 THEN S=S-1: 

POKE 764,0 

210 IF PEEK (764) =22 AND S<3 THEN 3=3+1 :P 

QKE 764,0 

220 IF PEEK (764) =6 AND T<9 THEN T=T+1:P0 

KE 764,0 

230 IF PEEK (764) =38 AND T>0 THEN T=T-1:P 

OKE 764,0 

299 GOTO 100 

600 REM HIT A BUILDING 

605 FOR L=l TO 255 STEP 3: POKE Cl,255-L: 

POKE 712, L: SOUND 0, L, 4, 14: NEXT L: SOUND 

, , , O 

607 POKE H1,0 

610 GRAPHICS 1+16: POSITION 0,10: PR I NT £6 

; "YOU CRASHED" 

615 POSITION 0,4: PRINT £6;" FUEL : ";F 

620 POSITION 0,14:PRINT £6; "TRY SOMETHIN 

G EASIER" : G=G-1 

630 IF G< 1 THEN G=l 

640 GOTO 750 

700 REM SHIP FOUND SOMETHING 

705 FOR L=l TO 300: NEXT L 

710 IF PEEK (53252) =5 OR PEEK (53252) =4 TH 

EN 600 

715 IF V>2 THEN 605 

717 POKE H1,0 

720 GRAPHICS 1+16: POSITION 0,10: PR INT £6 

; "SUCCESSFUL LANDING" 

725 POSITION 0,, 4: PRINT £6;" FUEL : " :; F 

730 POSITION 0,14: PRINT £6; "TRY SOMETHIN 

G HARDER" :G=G+1 

740 IF G>8 THEN G=8 

750 FOR L=l TO 999: NEXT L 

760 GOTO 20 

800 REM MISSED PLANET 

805 POKE H1,0 

810 GRAPHICS 1+16: POSITION 0,10 

820 PRINT £6;" you missed it" 
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S30 GOTO 380 

350 REM DRIFTED INTO SPACE 

855 POKE H1,0 

860 GRAPHICS 1+16: POSITION 0,10 

870 PRINT £6; "you went into orbit 

830 FOR L=l TO 500: NEXT L 

390 POSITION 0,15: PRINT £6;" same level 

agai n" 
395 FOR L=l TO 500: NEXT L 
399 GOTO 20 

1000 REM SET UP LANDER GRAPHIC 
1010 H1=53248:C1=704:P0KE H1,0 
1020 POKE 559, 62: POKE 53277,3 
1 030 PMBASE=PEEK ( 1 06 ) -24 : POKE 54279 , PMBA 
SE 

1 040 P 1 =PMBASE*256+ 1 024 

1050 FOR 1=0 TO 255: POKE PI +1,0: NEXT I 
1060 RESTORE 9000 
1070 FOR 1=0 TO 7: READ D 
1075 K(I)=D 

1080 POKE P 1+1+40, D: NEXT I 
1099 RETURN 

2000 REM DRAW CITY /LANDING AREA 
2005 COLOR 3 

2010 FOR L=0 TO 75 STEP 5 
2020 H=INT(RND(l)*10+4) 
2030 FOR 1=0 TO 4: PLOT L+I,47 
2040 DRAWTO L+I , 47-H: NEXT I 
2050 NEXT L 

2100 COLOR 1:L=INT(RND(1)*14)*5 
2110 FOR 1=0 TO 4: PLOT L+I, 47 
2120 PLOT L+I, 46: NEXT I 
2125 COLOR 4 

2130 FOR 1=45 TO 31 STEP -l:PLaT L, I 
2140 DRAWTO L+4,I:NEXT I 
2199 RETURN 

3000 REM ERASE OLD /DRAW NEW 
3010 FOR I=INT(B) TO INT (B+7) : POKE Pl+I, 
0:NEXT I 
3020 FOR I =0 TO 7 : POKE P 1 + I + I NT ( H ) , K (I ) 
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3030 


NEXT I 


3090 


POKE HI, X 


3099 


RETURN 


9999 


REM LANDER SHAPE 


9000 


DATA 90,36,36,60 



102,90,66, 195 
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FLASHY GRAPHICS 



iil m 



As the ATARI 600 XL has a superb range of colour 
graphics we thought it only fair to let it show them off to 
your friends and family. There are three demonstrations 
in this section which can be chosen from a 'menu'. 

The first program will run through the colours and tones 
availableto the programmer. 

The second program will create an intricate mosaic effect 
which will then pulsate. 

The third program in the suite introduces a bouncing ball 
which moves under gravity and leaves a short coloured 
trail. 



Any, or all, of these programs are ideal for drawing 
attention to the computer and can be used as an attention 
getter in a window display. 
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How to play 

Use keys 1 , 2 or 3 to select program. Use SPACE to return 
to the menu. 

The Program 



10 F;EM flashy GRAf-'HICB 

20 DIM A*';i) 

100 GRAPHICS 1 + 16:F'0SITI0N 0,4 

110 PRINT £6; "CHOOSE DEMO NDMPFR" 

120 POSITION 0„ 7: PRINT £6; " (1 '/ -■ 

) " 

130 OPEN £1,4,0, "K: " 

1 40 GET £ 1 , A : A'li^^-^CHRI; ( A ) 

150 IF A!t<"l" OR A*>"3" THEN 140 

160 CLOSE £1 

170 ON A-4S GOSUB 1000,2000,3000 

IBO GOTO 100 

900 END 

990 FOR W=l TO 200:: NEXT W: RETURN 

1000 REM DEMO ONE 

1010 GRAPHICS 9+16 

1020 SETCOLOR 4,0,0 

1030 FOR X=-0 to' 15 

1040 COLOR X 

1050 FOR D=0 TO 2 

1 060 C-X *5+D : PLOT C , O : DRAWTO C ,191 

1070 NEXT D: NEXT X 

1 1 00 FOR C=0 TO 1 5 

1110 SETCOLOR 4, CO: GOSUB 990:NEXT C 

1120 SETCOLOR 4,0,0 

1130 GRAPHICS 11 +32: REM SWITCH TO 3 6 COl 

DPS 

1140 FOR C=0 TO 15 

1150 SETCOLOR 4,0,C:G0SUB 990:NFXT C 

1 1 99 RETURN 

2000 REM DEMO TWO 

2010 GRAPHICS 15+16 
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2015 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2 1 1 



1, 1 



SETCOLOR 0,2,14: SEETCOL DR 
FOR x=0 TO 156 STER 4 
COLOR 1:PL.0T X,0.iDRAWTD 156, X 
PLOT 156-X, 156:DRAWT0 0,156--X 
COLOR 2: PLOT 156,X:DRAWT0 156 

PLOT , 1 56 X : DR AWTO X , O 

NEXT X 

SETCOLOR 2,0, 14 
COLOR 3 
FOR X=0 TO 32 
PLOT 78+ X , 78 : DRAWTO 
78-X,7S 
2120 DRAWTO 
2130 NEXT X 

102 FOR C=:14 TO STEP -2 
2150 FOR C-14 TO STFP -2 
2155 SETCOLOR 0, 2, C: SETCOLOR 
2160 SETCOLOR 2 , , C : NE X T C 

IF PEEK (764) -33 THEN 2199 
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-X, 156 



78, 78+X: DRAWTO 



78 ,, 78- X : DRAWTO 78+ X , 78 



1,12, 14 -C 



^ 1 au 

2170 

2 1 SO 

ETCOLOR 2 

2190 NEXT 

2 1 95 

2199 

3000 

3010 

3015 

3016 

3020 

3030 

3040 

3050 

3 1 00 

3110 

3 1 20 



14 STEP 2 

2,CsSETC0L0R l,12,14--Ci 



FOR C=0 TO 
SETCOLOR O,; 

0,C 

C 
IF PEEK (764) 
RETURN 
REM DEMO 
GRAPHICS 
SETCOLOR 
SETCOLOR 
X=0; Y=190 
A=2.5:B=6 
E=0: F=0: G=0:H=O 
K=0: L=0: M=0: N=-0: 0=0: P=0 
C~X+A:D=Y+B 



o 



THREE 
15+16 
2,2,14 
1,2, lOi 



THEN 2150 



SETCOLOR 0,2,6 



IF 
IF 



C<0 
D<0 



OR 
OR 



0159 
D>190 



THEN A=-A: 
THEN B-=^-0. 



3 1 00 

5200 COLOR 4: PLOT IWT(O) 

5201 COLOR 1:PL0T INT(M) 

5202 PLOT INT(K) , INT (I. ) 

5203 COLOR 2: PLOT INT (I), INT (J) 



GOTO 3100 
95#B:G0T0 



I NT ( P ) 
IIMT(N) 
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205 PLOT INT(G) , IMT(H) 

206 COLOP; 3 : PLOT I NT ( E ) , I NT ( F ) 

210 PLOT INT(C) , IMT(D) 

211 0=M:p:=N:M=:K:N=:L 
213 K=<[:L==J: I==G: J=H 
215 G=E:H=F:E=X:F-Y 
220 X=C:Y=-D 

250 B-=B+0. 11 

260 IF PEEK (764) =33 THEM RETURN 

299 GOTO 3100 
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CHORD ORGAN 




Now is your chance to show off those musical talents you 
have been boasting aboutforyears. 

This program will turn your 600 XL into a mini electric 
organ, and all for the price of a few minutes work typing 
in the listing. 

Instead of just giving you a few keys to press we have 
added the refinement of providing you with a selection 
of chords. 



How to play 

The numeric keys represent the chords. Press a number 
to select. 



The keys on rows Q and A represent the 'melody' keys. If 
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you wish to pause during your recital, but don't wisin to 
hear the continuous tone of your last note, press 
RETURN. Similarly, if you wish to perform a cadenza 
within your recital and cut off the chord, press SPACE. 

We wish you, and your long suffering relatives, many 
happy hours. 



The program 



10 REM CHORD ORGAN 

100 K-PEEI<(764) 

110 IF K-31 THEM SOUND 1,251,10,10 

2,194,10,1 : SOUND 3 , 1 64 , 1 , 1 
120 IF 

k , 128 
130 IF 

2, 173 
140 IF 



, 10, 10: SOUND 3, 108, 10, 
K-26 THEN SOUND 1,217 
10, 10: SOUND 3, 144, 10, 
K-24 THEN SOUND 1, 144 



2,114, 1 , 1 : SOUND 3 ,, 96 , 1 , 1 



K=30 THEN SOUND 1,162,10,10 



10 

, 10, 10 
10 
1 , 1 



150 IF 

2,, 153 
160 IF 

2, 102 
170 IF 

2, 148 
180 IF 

2,204 
190 IF 

2, 136 
200 IF 

2,, 184 

210 IF h:>33 THEN SOUND 0, 0, 0, 0:i SOUND 1,0 
,0,0: SOUND 2, 0, 0, 0: SOUND 3,0,0,0 
220 IF K=12 THEN SOUND 0,0,0,o' 
230 IF K=63 THEN SOUND 0,124,10,14 
240 IF I046 THEN SOUND 0,114,10,14 
250 IF K--62 THEN SOUND 0,108,10,14 



< ^■■-■- 2 9 T H E: !M SOUND 1,193, 1 , 1 
10, 10: SOUND 3, 128, 10, 10 
K-27 THEN SOUND 1,123,10,10 

,10,1 : SOUND 3 , 85 , 1 ., 1 
l<=51 THEN SOUND 1,187,10,10 

, 1 , 1 : SOUND 3 , 1 24 , 1 , 1 
1<=53 THEN SOUND 1,251,10,10 
1 , 1 : SOUND 3,164,1 , 1 
K>48 THEN SOUND 1,162,10,10 

,10,1 : SOUND 3 , 1 Oi3 , 1 , 1 
K=50 THEN SOUND 1,217,10,10 

,10,10s SOUND 3,144 , 1 , 1 



SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
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260 


IF 


k>42 THEM SOUND 


0, 102, 10, 14 


270 


IF 


l<--=58 THEN SOUND 


0,96, 10, 14 


280 


IF 


l<=56 THEN SOUND 


0,91, 10, 14 


290 


IF 


l<==45 THEN SOUND 


0,85, 10, 14 


300 


IF 


l<=61 THEN SOUND 


0,81, 10, 14 


3 1 


IF 


I043 THEN SOUND 


0,76, 10, 14 


320 


IF 


l<=57 THEN SOUND 


0,72, 10, 14 


330 


IF 


K=ll THEN SOUND 


0,68, 10, 14 


340 


IF 


I<=1 THEN SOUND C 


',64, 10, 14 


350 


IF 


K-5 THEN SOUND C 


) , 6 1 , 1 , 1 4 


360 


IF 


l<=8 THEN SOUND C 


',57, 10, 14 


370 


IF 


l<=0 THEN SOUND 0,53,10,14 


380 


IF 


l<=10 THEN SOUND 


0,50, 10, 14 


390 


IF 


K=2 THEN SOUND C 


),47, 10, 14 


400 


IF 


i<-6 THEN SOUND C 


), 45, 10, 14 


4 1 


IF 


K-15 THEN SOUND 


0,42, 10, 14 


420 


IF 


K=7 THEN SOUND C 


',,40, 10, 14 


430 


GOTO 100 
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DICE 




If you are bored with shooting down missiles and 
defending the world from alien attack then here is a game 
totestyourgambling skill. 

The Atari will 'throw' five dice for you and you must try to 
achieve the best sequence possible for the greatest 
score. 

Possibilities to achieve highest scores are: 



One pair 

Three of a kind 

Two pair 

Full house (Three of a kindandtwoofakind) 

Fourof akind 

Low run 

High run 

Five of a kind 
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How to play 



After the computer's first 'throw' you can hold the dice by 
using keys 1 to 5. Press R to release all the dice. Use 
SPACE to roll the dice free. You have ten rolls to make 
your high score and give your partner a target to beat. 



The Program 

10 REM dice: 

20 GRAPHICS :l. + :l.6 

30 D I M D ( 5 ) , F" ( 5 ) , S ( <S ) , M't ( 20 ) 

40 T=:LO 

1.00 T^=:T-1:IF T-0 THFIN 2000 

.110 FOR L==^l TO 5nF(L.):=^0sMEXT L 

115 POSITION 0„ 5: PRINT £6?" 



1 1 6 POS I T I ON Q ,, 1 : F'R I NT £6 



14: PRINT £6h 
19: PRINT £6S 



1 1 7 


POSITION 

If 


1 1 B 


POSITION 


120 


GOSUB 1000 


1 30 


GOSDB 1200 


140 


GOSUB 1000 


150 


GOSUB 1 200 


1 60 


GOSUB 1000 


2or) 


GOSUB 3000 


2 1 


SC-SC+NS 



220 GOTO 100 

1000 REM GENERATE AND SHOW 

1010 FOR L=^l TO 5 

1015 IF F(l...)-:1 THEN 1060 

1 020 Q= I NT ( RND ( 1 ) *60-i 1 ) 

1 023 D ( L ) -^: 1 

1025 FOR E--1 TO Q 

1 ;; p s i t ion e. * 3 + 2 , 4 

1035 D(L):::^^D(L)-i-l 



5 DICE 
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1040 


IF D(L..)-7 TI-IEN D(LJ 


. r.-: 1 




1 (1)50 


PF<IMT £6;D(L) ; 






1 055 


nee; XT E 






1 (:)<!> 


NEXT L 






1 099 


F^ETURM 






1200 


REM BET STOP FLAGS 






1 202 


POSITION 7, 1:F-RIMT 


£hi "HOLD 


NOW" 


1 204 


POSITION 0,5: PRINT 

II 


£6; " 




1 205 


FOR L-l TO 5:F(L..)-(: 


:):NEXT L 




1210 


OPEN £1,4,0, "K: " 






1 220 


GET £1,A 






1 230 


IF A-ABC(" ") THEN 


1 260 




1235 


IF A-ASC("R") THEN 


CLOSE £1: 


:GOTO 12 


04 








1240 
20 


IF A<ASC("1") OR a:: 


>ASC("5") 


THEN 12 


1245 


POS I T I ON 3* ( A--48 ) ■+■2 , 5 1; PR I NT 


£6;CHR* 



(ASC("+") +12B) 

1250 F (A -48) =1 = GOTO 1220 

1260 CLOSE £1 

1 270 POS I T I ON 7 , 1 : PR I NT £6 ; " 

12S0 RETURN 

2000 REM END OF GAME 

2010 GRAPHICS 1+16 

2020 POSITION 0, 10 

2030 PRINT £6;"' end of game" 

2040 POSITION 0, 13 

2050 PRINT £6;"' your score is" 

2060 POSITION 0, 16 

2070 PRINT £6;" ";STR*(SC) 

2080 POSITION 5,22 

2090 PRINT £6;"< SPACE >" 

2100 OPEN £1,4,0, "K: " 

2110 GET £1,A 

2120 IF A<>ASC(" ") THEN 2110 

2130 CLOSE £1 

2140 RUN 

3000 REM SCORE THE DICE 

3001 REM SCORE IN NS 

3010 FOR L=l TO 6: S (L) =0: NEXT L 
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3020 FOR L-l TO 5 

3030 E5(D(L..) )==:S (Dd.) ) + l 

3040 NEXT L 

3050 Z2-0:F"0F^ L-1 TO 6 

3060 IF- S(L..)=1 THEN Z2-Z2+] 

3070 NEXT L 

3100 Z 1-0: FOR L-1 TO 6 

3110 IF S(L)=0 THEN Z1=ZH-I 

3120 NEXT L 

3130 IF Zl=5 THEN GOSUEf 4000: 

3140 IF Zl-1 AND S(6)-0 THEN 

GOTO 3500 

3150 IF Zl=l 

GOTO 3500 



GOTO : 
GOSUB 



4350; 



AND 5(1 )=0 THEN GOSUB 4400: 



3155 
3160 
3 1 70 
3180 
3 1 90 
3200 
3210 
3500 
3510 
3520 



IF 
IF 
IF 
IF 
IF 
IF 
GOb 



Zl=rl 
Zl=2 
Z 1 < > 
I2~l 
Z2=2 
Z2-1 
UB 405 



THEN GOSUB 4500: 
THEN GOSUB 4300: 



THEN 3200 
THEN GOSUB 4100: 
THEN GOSUB 4250: 
THEN GOSUB 4200: 
GOTO 3500 
REM SCORE NOW IN NS AND 
REM MESSAGE IN N* 
POS I T I ON , 1 : PR I NT £6 ; " 



GOTO 
GOTO 

GOTO 
GOTO 
GOTO 



1.500 
'^SOCj 



'500 
'mjOO 



3530 POS I T I ON , 1 :; PR I NT £6 ; N* 

3540 POSITION 0,14: PRINT £6;" SCOPE ■ 

";STR$(NS) ; " 
3550 POSITION 0,1 9: PR I NT £6; '■ < SPACE 

3600 OPEN £1,4,0, "K: " 

3610 GET £1,A ' 

3620 IF AOASCC " ) THEN 3610 

3630 CLOSE £1 

3640 RETURN 

4000 REM FIVE OF A KIND 

4010 N*::^ "**«**>(■ EUREKA m-k-****" ; Mq=i=vri. RET 

URN 

4050 REM PAIR AND THREE 

4060 N*= "«■*** FULL. HOUSE ****": NS=3n. ppT 

URN 
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4100 REM TWO F'AIRS 

4110 m>="¥.* DOUBLE DOUBLE **" : MR-7n. ppri j 

RN 

4200 REM FOUR OF A KIND 

42 1 M$= " **** FOUR T I MES x*** " ; Nqn= i 'r-; „ p.p y 

URN 

4250 REM THREE OF A KIND 

4260 N!r.= "*#* THREE TIMES ***" : NS--=1 '■'" RFTU 
RN ■ - ■ - - 

4300 REM ONE PAIR 

4310 N$-" MADE FDR EACH OTHER" : NS-7: RFTU 

RN 

4350 REM LOW RUN 

4360 N*=="***»i(- LOW RUN **x**" ■ Mc^=':'4" PETU 

RN 

4400 REM HIGH RUN 

4410 N*==: "#*■»#* HIGH RUN *-x •!*•** ": MS=40" RET 

URN 

4500 REM NO SCORE AT ALL 

45 1 N<};= " ¥■****¥.* ZERO **¥r¥,¥.*¥r " : Hq-:=o ■ RETU 

RN " ' " ' ■' 
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MISSILE COMMAND 




The inevitable has happened. 

Your defence force is off in deep space going where no 
man has gone before and you are the only pilot left to 
defend three cities against waves of missiles. Your force 
field has gone down so you must fly out and stop the 
invaders before they reach your undefended cities. Even 
if you stop the missiles in the first wave they will keep 
coming, and the colours of the screen will change to 
make it more difficult for you to identify the attacker's 
path. 



How to play 

The missiles will come from the top of the screen and plot 
their way down towards you. You must cross their path 
and fire with your SPACE key. Remember that your 
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missiles may tal<e a second to fire so you may have to 
predictthe attacker's path of descent. 

To move use l<eys Z and X for left and right and / and + for 
down and up. 

If you score 5000, or multiples of this number, you will be 
given a bonus city to defend. As the attackers have 
different values of points according to which wave you 
are on you may have to decide to let one of your cities be 
destroyed in order that you achieve the 5000 points you 
need to proceed. This may seem a little tough on your 
citizens but you have to play on, don't you? 



Programming Hints 

To slow the attackers down, put in a delay statement as 
follows: 

Line 100 FORQW = 1 to 30: NEXTQW: IF J = 0THEN 110 



The Program 

.1. C I =^3 : B0:^-0 s E5(:>n:0 : WV^^^^^ 1 

19 DIM X (10) ,Y(10) ,A(10) ,B(10) 

40 GRAF^'HICS 7+:|.6n POKE 752,1 

50 GOSUB 6000 

70 M==;rMT (F;;ND(1 ) >«8 + 3) 

aO GOSUB 3000 

90 O0:M==M 

95 IF WVOl THE:M GOSUB 8000 

96 IF CI<3 AND BGOO THEN CI^ni + 1 : BO-^^BO- 

1 : GOTO 96 

100 IF J-:---^0 THEN 110 

106 J -■ J - 1 : I F ,.T n=: 7' f-.| £ |\J [U- :_ I 

110 C-C+lnlF C-80 THFN 700 
115 IF N-0 THEN 700 
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120 FOR L-l TO M 

121 gde:;ljb 200 

122 IF E-0 THEN 125 

123 COLOF^ 2s S=E:X=Q:Y-Rs SOUND 0,E*12,4,1 
4:G0SUB 4000:E=:E+1 

124 IF E=21 THEN E-0= SOUND 0,0, 0,O 

IF Y(L.)- 1 THEN 190 

COLOR 3 

PLOT X (L) ,Y(L) 

X (L)-X(L.)+A(L) :Y(L)-Y(L)+B(L.) 



J. jC ._j 

127 

130 

140 

145 

90 

1 50 

160 

1 70 

IBO 

185 

1 90 

195 

200 



IF Y ( L ) >78 THEN Y ( L ) — 1 : N-N~ 1 : GOTO 1 



LOCATE 
IF DO 2 
IF Y(L) 
Y(L)-=-l 



X(L) ,Y(L) ,D 

THEN 190 
>70 THEN GOSUB 
: N-N- 1 



7000 



SC-SC+10*WV 
NEXT L 
GOTO 499 
IF PEEK ( 764 )=< 
;:Q=G:R-H 



AND E=0 AND J=0 THEN 



COLOR 4 



4: 



220 IF PEEK (764) =23 AND G>5 THEN 

:PLOT G,H5C0L0R 2:G-G-1:PL0T G,H 

230 IF PEEK (764) =6 AND H>5 THEN COLOR 

PLOT G,H: COLOR 2: H-H-- 1 : PLOT G,H 

240 IF PEEK (764) =22 AND G< 154 THEN COLOR 

4: PLOT G,H: COLOR 2: G=6h-1 : PLOT G,H 
250 IF PEEK (764) -38 AND H<64 THEN COLOR 
4: PLOT 6, H: COLOR 2: H-H+l : PLOT G,H 
RETURN 

^•0 THEN 100 
17 
0.5 
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499 IF CI+BO 

500 GRAPHICS 
520 POSITION 
530 PRINT £6 
540 POSITION 0, i: 
550 PRINT £6; " 
560 POSITION 
570 PRINT £6; " 
580 POSITION 
590 PRINT £6," " 



score 



SC 



GAME OVER" 
7 

WAVE NUMBER " 
19 

< RETURN >" 



WV 
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(!300 OPEN £1 ,4,0. "Kn " 

610 GET £1,D ' 

620 IF 00155 THEN 610 

630 CLOSE £l:Rl.JN 

700 GRAPHICS 17 

710 SOUND 0,0, 0,0: SOUND 1,0, 0,0 

720 POSITION 0,5s PRINT £6; "END OF WAVE • 

" ; WV 

730 WV==WV+1 

740 POSITION 0,10: PR INT £6;" ";CI;" C 
ITIES" 

750 POSITION 0,17: PRINT £6; " bon 

us" 

760 B== ( C I + BO ) ♦ 1 00*WV 

770 FOR L=B TO STEP -10 

775 SOUND 1 ,L*200/B+4O, lO, .10 

780 POS I T I ON 8 ,19: PR I NT £6 ; " " ; L 

790 NEXT L 
795 SOUND 1,0,0,0 

800 SC-SC+B:IF INT (SC/5000) =SC/5000 THFN 
BD=B0+1: POSITION 6, 2: PRINT "BONUS CITY" 
890 FOR L-1 TO 800: NEXT L:GOTO 40 
1000 COLOR 1 
1010 FOR S=l TO 20 

1 020 SOUND 0,5*12,4,14: GOSUB 4000 
1030 NEXT S 

1 099 SOUND , , , : RETURN 
3000 FOR L==l TO 10 

3020 X(L)-INT(RND(1)*160) :Y(L)=0 
3025 S= I NT ( RND ( 1 ) *40 ) +40 

3030 ON INT(RND(1)*3+1) GOTO 3040,3050,3 
060 

3040 A(L>-(25-X(L))/S:B(L)-(78-Y(L))/S"G 
OTO 3070 

3050 A(L)=(65-X(L) ) /S: B (L) - (77-Y <L) )/S-G 
OTO 3070 

3060 A<L)=<135-X(L))/S:B(L)=(75-Y(L))/S 
3070 NEXT L 

3080 G=80:H=50: COLOR 1 : PLOT G,H 

3090 J=0:E=0: RETURN 

4000 SS=S:IF S>10 THEN COLOR 4:SS=S-10 
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4010 ON SS GOTO 4020,4030,4040,4050,4060 

, 4070 , 40E30 , 4090 , 4 1 00 ,4110 

4020 F-'LDT X,Y:PLOT X+1,Y=PL0T X , Y+l ; RFTU 

F<N 

4030 F'LOT X 1 , Y : PLOT X , Y 1 : RETURN 

4040 PLOT X+2,Y;;PL(:)T X+ 1 , Y+l : F'LDT X,Y+7: 

PLOT X- 1,Y-H: RETURN 

4050 PLOT X-2,Y:PL0T X-1,Y-1:PL0T X,Y-2: 

PLOT Xil,Y 1: RETURN 

4060 PLOT X-2,Y+2:PL0T X-2, Y-i-l : PLOT X-3, 

Y : F'LOT X 2 , Y 1 : PLOT X 2 , Y-2 : PLOT X - 1 , Y-2 

4065 PLOT X,Y-3:PL0T X + 1 , Y-3: PLOT X + KY- 
2: RETURN 

4070 PLOT X +2, Y-2: PLOT X+2, Y-1 : PLOT X+3, 
Y : PLOT X ■•I-2 , Y+ 1 : PLOT X +2 , Y+2 : PLOT X -H , Y i-2 

4075 PLOT X,Y + 3:PL0T X 1 , Y-i-3: PLOT X-1,Y+- 

2: RETURN 

40B0 PLOT X,Y 4: PLOT X 1,Y 4: PLOT X-1,Y- 

3: PLOT X-2, Y-3s PLOT X-3, Y--2: PLOT X-3,Y 1 

:PLOT X-4,Y-1 

4085 PLOT X -4 , Y : PLOT X 3 , Y+ 1 ; PLOT X - 3 , Y+ 

2: PLOT X-2,Y+3:PL0T X- 1 , Y+-4: RETURN 

4090 PLOT X,Y+4:PL0T X+1 , Y4 4: PLOT X4l,Y+ 

3: PLOT X+2,Y+3:PLDT X +3, Y+2: PLOT X+3, Y+l 

:PLOT X+4,Y+1 

4095 PLOT X +4 , Y : PLOT X +3 , Y - 1 : PLOT X +3 , Y- 

2: PLOT X+2,Y-3:PL0T X+1,Y 4: RETURN 

4 1 00 PLOT X , Y--5 : PLOT X 1 , Y 5 : PLOT X 2 , Y~ 

4 " P L 7- X 3 , Y - 3 : P l_ O T X 4 , Y 2 : F' L T X - 5 , Y 1 

:PLOT X-5,Y 

4105 PLOT X-5, Y+l: PLOT X-4,Y+1:PI0T X-4, 

Y+2 : PLOT X -3 , Y+3 : PLOT X 2 , Y-.- 4 : PLOT X 1 , Y 

+5 

4107 RETURN 

4110 PLOT X,Y-5:PL0T X+1,Y+5:PL0T X+2,Y+ 

4 : PLOT X +3 , Y + 3 : PL.OT X i 4 , Y + 2 : PLOT X +5 , Y+ J 

:PLOT X+5,Y 

4115 PLOT X+5,Y 1 : PLOT X+4,Y-1:PL0T X+4, 

Y--2:PL0T X+3, Y-3: PLOT X+2,Y-4:PLDT X+UY 

— b 

4117 RETURN 
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6000 COLOR 1 

6010 RESTOFa'E 10000 

6015 READ D:PLOT 0,D 

6020 FOR L.-10 TO 150 STEP 10 

6030 READ DrDRAWTO L,D:NEXT L 

6040 READ DsDRAWTO 159, D 

6045 COLOR 2 

6047 ON CI GOTO 6070,6060,6050 

6050 X=20 : Y---78 : GOBUB ' 6500 

6060 X=60: Y-77:G0SUD 6500 

6070 X= 1 30 : Y-75 : GOSUB 6500 

6499 RETURN 

6500 RESTORE 11000 
6520 PLOT X,Y 
6530 READ A,B 

6540 DRAWTO X+A,Y+B 

6550 X=X+A:Y=Y+B 

6560 IF AOO OR BOO THEN 6530 

6599 RETURN 

7000 IF X(L)<35 THEN X -25 : Y-78: GOSUB lOO 

0:CI=CI-1:X =20 .-COLOR 4: GOSUB 65OO:r50T0 7 

099 

7020 IF X(L)<75 THEN X-65: Y-77: GOSUB lOO 
: C I =C I - 1 : X=60 : COLOR 4 : GOBUB 6500 : GOTO 7 
099 

7030 X=135:Y=75; GOSUB 1000: CI=CI-1 : X==130 

: COLOR 4: GOSUB 6500: GOTO 7099 

7099 RETURN 

8000 C1=INT(RND(1)*16) 

8020 C2= I NT ( RND ( 1 ) * 1 6 ) : I F C2=C 1 THEN 807 



8030 C3= I NT ( RND ( 1 ) * 1 6 ) : I F C3=C2 OR C3-C 1 

THEN 8030 
8040 C4=INT(RND(1)*16) : IF C4=C3 OR C4-C'^ 

OR C4=C1 THEN 8040 
8050 C5=INT(RND(1)*16):IF C5=C4 OR C5=C3 

OR C5=C2 OR C5=C1 THEN 8050 
8060 SETCOLOR 1 , C2, INT (RND (1 ) *10+5) 
8070 SETCOLOR 2, C3, INT (RND ( 1 ) *10+5) 
80E30 SETCOLOR 3, C4, INT (RND ( 1 ) #10+5) 
8090 SETCOLOR 4 , C5 , I NT ( RND ( 1 ) * 1 6 ) 
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a099 RETURN 

1 0000 DATA 72,75,79,79, 73 , 76 , 78 , 78 , 74 , 7 1 

,72,74,79,76,76,73,70 

1 1 000 DATA 9,0, , -3 , - 1 , ,0,-2,-3, , , 3 

1 1 1 DATA ~ 2 , , , - 2 , -2 , ,0,3,-1, , , 1 

1 1 020 DATA 3,0, , -2 ,4,0, , :l. ,1,0,0,-1 

11030 DATA 0,0 
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BIORHYTHM GRAPHING 
AND PREDICTION 




Don't worry it isn't going to hurt you, just lie back and 
enjoythe sensation ofyour life flashing past you. 

In simple terms this is a system which will allow you to 
predict the type of day you are going to have, or check 
and see if the day just passed, is as bad as you think 
possible. 

You type in the data and your 600 XL will tell you, and 
show you the shape of the day to come. It will also give 
you an idea of the days on both sides of the day in 
question. 



How to use 

The 600 XL will ask you to enter your birth date and the 
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date of the day on which you are using the program. 

You will then be asked for the year, nnonth and day/date 
of the week you wish to predict. When you are asked for 
the day remember to enter the day/date not just any day 
as there are, of course, several Tuesdays in a month. 

Press RETURN key after each entry. 

After you key in the final information the computer will 
produce a chart of your physical, emotional and 
intellectual state on the day in question. As we said 
before, you will also see a picture of the days on either 
side and you may then decide not to leave your bed for 
the next week. 

To clear, type RUN and return to the menu. 
The Program 



F^;EM EilOF^'HYTHM GRAF'H.t IMG AMD PRFDICTTDM 
12 DEG 

15 DIM T*(20) ,1-1* (20) 

20 GRAPH I CS : FOB I T I ON , 4 : PR I NT " P I RTH 

DATE : " 

30 GOSUB 1000 

4 B Y ^^: Y : B M --^ M j B D ^■--■- D 

50 GRAPHICS 0: POSIT I ON 0, 4 n PRINT "DATE T 

INVESTIGATE : " 
60 GOSUB 1000 
100 GOBUB 2000 

1 10 PH==:DAYS~23»INT (DAYS/23) 
120 EM=D AYS -28* I NT (DAYS/ 20) 
130 IT-DAYS -33* I NT (DAYS/ 33) 

1 40 GRAPH I CB 7 : POKE 752 , 1 : PR I NT 
150 PRINT "PHYSICAL CYCLE" 

1 6 O = P H / 2 3 * 3 6 : M U = 2 8 / 2 3 
170 COLOR 1: GOSUB 3000 
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200 PRINT "EMOTIONAL CYCLE" 

2 1 D^=EM / 28*360 : MU= 1 

220 COLOF'< 2:G0Sl.JB 3000 

300 PRINT "INTELLECTUAL CYCLE" 

310 0=IT/33*360: MU^^^28/33 

320 COLOR 3:GOE5UB 3000 

330 PRINT "DATE REQUESTED" 

340 PLOT 80,0:DRAWT0 80,79 

400 END 

1.000 REM READ IN A DATE 

1 1 POS I T I ON , 1 : PR I NT " YEAR 

": POSITION 9, 10 
1020 INPUT Y:IE YOINTCY) THEN IDJO 
1 030 POS I T I ON ,15: PR I NT " MONTH 

": POSITION 9, 15 
1040 INPUT M* 

1 050 I F M* (1,1 ) > " " AND M$ ( 1 , 1 ) < =: " 9 " THE 
N M^VAL (M*) :GOTO 1100 
1060 RESTORE 9000 
1070 M-0:FDR L-1 TO 12 

1 080 READ T* : I F Tif (1,3) -M* (1,3) THEN M-l 
1090 NEXT L 

1100 IF M=0 OR M<>INT(M) OR M>12 THEN 10 
30 

1110 POSITION 0,20sPRINT "DAY 

": POSITION 9„20 
1120 INPUT D:IF D< 1 OR D>31 OR D-::' MNT (D) 

THEN 1 1 1 O 
1 1 99 RETURN 

2000 REM FIND NUMBER OF DAYS 
2010 DP=^0:DM=0 

2020 DP=365. 25«Y: DM-365,. 25*BY 
2030 RESTORE 9500 
2040 FOR L-1 TO 12 
2050 READ T 

2060 IF M-=L THEN DP=DP + T 
2070 IF BM-L THEN DM-DM+T 
2080 NEXT L 
2090 DP-DP+D:DM-DM+BD 
2100 DAYS=DP-DM 
2999 RETURN 
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3000 REM DRAW A CYCLE?: 

3005 PLOT , 75 ( 37 . 5+37 . 5*B I N ( -360*MU+0 ) 

) 

3010 FOR TH=-.360 TO 350 STEP 2.5 

3020 X = TH/4. 5+aO: ¥-37. 5-i 37. 5*SIN (THrMU+C) 

) 

3030 DRAWTO X,75-Y 

3040 NEXT TH 

3100 FOR W=l TO 600: NEXT W 

3999 RETURN 

9000 DATA JAN, FEB, MAR, APR, MAY, JUN 

90 1 DATA JUL , AUfS , SEP , OCT , NOV , DEC 

9500 DATA , 3 1 , 59 , 90 , 1 20 , 1 5 1 , 1 8 1 , 2 1 2 , 243 

,273,304,334 
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WALL DODGE 




This time you have a very unusual objective as you must 
crash your space vessel to earn points. 

Let us all hope that there is some sense in what we have 
been asked to do by Command Headquarters. 



How to play 

Scrolling down the screen are three walls of different 
colour and construction. 

Each wall has gaps within it's structure and you must 
shoot through the first two walls and hit the third. If you 
think that is simple we should tell you that the walls 'spin' 
at different speeds and the gaps are of different sizes, and 
are in different places from reel to reel. 
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You must anticipate the spins, line up the gaps, and 
launch your vessel using SPACE bar. 

To line up your launch use keys A and Z. 

You have ten shots and you achieve maximum points if 
you hit the third wall. 

By the way, the third wall has more gaps than wall so you 
could fly straight through and get no points at all. 

If you score 150 exactly you will be given ten bonus 
points and ten extra attempts. 



The Program 




10 REM WALL DODGE 




11 REM WITH M/CODE i 
20 GRAPHICS 5: POKE 
30 GOSUB 1000 


MOVEMENT 
752, 1: PRINT 


40 GOSUB 1500 




50 F-0:S-65 




60 Y=:100:X-S: GOSUB : 


3000 


70 POKE HI, 100: POKE 
eo POKE CI, 200: POKE 
90 POKE C4,38 


H2, 150: POKE H3,200 
C2, 100: POKE C3,50 


95 SC=0:G=10 




97 N-IO 




100 GOSUB 2000 




105 IF F=1. THEM 300 




107 IF G-O THEN SOO 




110 IF PEEK ( 764 )-?7; 
120 IF PEEK (764) -63 
130 IF PEEK (764) -33 
764,0 


THEN Z-USR( 12381) 
THEN Z=USR( 12412) 
THEN F-1:G-G-1:P0KE 


200 GOTO 100 




300 X-X+2:P0KE 53278, 1 : POKE H4, X 
310 IF PEEK (53263) -O' THEN 3BO ' 
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320 SC-SC+1.0*PEEI< (53263) 

330 PRINT " "; :l.0*PEEK( 53263 ): X=^220 

340 IF SC=:150 THEM SC:^=SC+10: M=<20: G^G+lOn 

PRINT " 10 BONUS SHOTS" 

380 IF X<210 THEN 1.00 

390 F-0 : X ==S : POKE H4 , X : GOTO 1 00 

aOO GRAPHICS 1+16 

805 POKE H 1,0 5 POKE H2,0:P0KE H3,O:P0KF H 

4,0 

8 1 POS I T I ON , 3 : PR I NT £6 ; " game over " 

820 POSITION 0,10: PRINT £6;N;" SHOTS FI 

RED" 

830 POSITION 0,17: PR I NT £6 5" SCORE : " ," SC 

840 OPEN £1,4,0, "K: " 

850 GET £1,A:IF A032 THEN 850 

860 CLOSE £1 

870 RUN 

1000 REM SET UP THE PLAYERS 

1 1 POKE 559 , 62 : POKE 53277 , 3 

1020 PMBASE=40:P0KE 54279, PMBASE 

1 030 H 1 =53248 : H2=H 1 + 1 : H3::--=H2+ 1 : H4==^H3+- 1 

1 040 C 1 =704 : C2=C 1 + 1 ; C3-C2-I- 1 : C4=C3+ 1 

1050 POKE HI, 0: POKE H2,0:P0KE H3,0:P0KE 

H4 , 

1 060 P 1 ==PMBASE*256H- 1 024 : P2=P 1 +256 : P3=^P2 + 

256:P4=P3+256 

1070 FOR I==0 TO 254 STEP 2 

1 080 POKE P 1+1,1 70 : POKE P 1 + I + 1 , 85 

1 090 POKE P2+ I , 1 70 : POKE P2+ I + 1 , 85 

1 1 00 POKE P3+ I , 1 70 : POKE P3+ I + 1 , 85 

1 1 05 F^'OKE F'4 + 1,0: P0M:E P4 + 1 + 1,0 

1110 NEXT I 

1120 FOR I-O TO 192 STEP 64: FOR L=0 . TO 3 

1 

1130 POKE P2+L+I,0:NEXT L:NEXT I 

1140 FOR I-O TO 127: POKE P3+ 1,0: NEXT I 

1150 FOR 1=0 TO 224 STEP 32: FOR L=0 TO 1 

5 

1160 POKE P1+L+I,0:NEXT L:NEXT I 

1199 RETURN 

1500 REM READ IN THE MACHINE CODE 
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1510 RESTORE 9000 

1520 FOR L- 12288 TO 12442 

1530 READ D:POKE L,D 

1540 NEXT L 

159? RETURN 

2000 REM MOVE THE WALLS 

2010 Z=USR( 12288) : Z=I.JE;R ( 1231 1 ) 

2020 Z=USR ( 1 2342 ) : RETURN 

3000 REM DRAW SHIP 

3010 POKE H4,X 

3020 POKE P4+Y, 240: POKE P4+Y+1 , 1 12: POKF 
P4+Y+2,60 

3030 POKE P4+Y+3, 112: POKE P4+Y+4,240 
3040 RETURN 

9000 DATA 173,255,44,72,162,254,189,0,44 

,157,1,44, 202 , 224 , 255 , 208 , 245 

90 1 DATA 1 04,141,0,44,1 04 , 96 

9100 DATA 173,254,45,72,173,255,45,72,16 

2,253, 189,0,45, 157,2,45,202,224,255 

9110 DATA 208,245,104,141,1,45,104,141,0 

,45, 104,96 ■ " 

9200 DATA 173,253,46,72,173,254,46,72,17 
3,255,46,72,162,252 

9210 DATA 189,0,46,157,3,46,202,2-^4 ':^55 
208,245 " ■ " ' 

9220 DATA 104,141,2,46,104,141,1,46,104, 
141,0,46,104,96 

9300 DATA 173,254,47,72,173,255,47,72,16 
^,253, 189, 0, 47, 157, 2, 47, 202, 224, 255, 208, 
245, 104, 141,1,47, 104, 141,0,47,104,96 
9400 DATA 173,0,47,72,173,1,47,72,162,0 
189,2,47,157,0,47,232,224,253 '" ' 
94 1 O DATA 208 , 245 , 1 04 , 1 4 1 , 255 , 47 , ] 04 , 1 4 1 
,254,47, 104,96 " ' 
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SUBMARINE HUNTER 




Before the advent of missiles and the like submarines 
used to hunt in packs after unsuspecting merchant ships 
who couldn't retaliate. We have taken things back to this 
situation but we have changed the rules in your favour. 
Thistimethe submarines can't retaliate. 

A pack of subs, is heading for a rendezvous and are under 
attack from your cruiser. Although there are many 
submarines in the area, only two will appear on the 
screen at any time. 



One of the wolf pack is much slower than the other and 
should be easy to depth charge, but the leader is quicker 
and is diving forthe sea floor. 
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How to play 

Both submarines begin near the surface and try to dive to 
the bottom to escape. You must sink them before they 
escape as, if three get away, the game will end. 

Use keys Z and X for left and right and SPACE for 
dropping your depth charges. 

You will get 30 points for sinking the leader and 15 points 
for hitting the slower of the two vessels. 



Programming Hints 

To alter the size of the submarines, and make them easier 
to hit, change LINE 40 to 1 . This will double the size of the 
targets. 

To change the rate of descent of the depth charges alter 
LINE 330 by adding Z=USR (12381 ): Z = USR (12381). 



The Program 

10 REM SUBMARIhJE HUNTER 

11 REM WITH M/CODE MOVEMENT 
15 GDSUB 1500 

20 GRAPHICS 5: POKE 752,1: PRINT 

25 WV=l:E-0 

30 GOSUB 1000 

40 V=0:REM DIFFICULTY OR 1 

50 Y^eOs GOSUB 2000 

60 X= 100: POKE H1,X 

65 A-40;:B-200:P0I<E H2, An POKE H:^,B 

67 C=a:D=-3 

70 POKE 53256, Vs POKE 53257, V: POKE 5325B. 
V 
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75 P^=0:Q=0 

eo POKE 623, 1 

90 SETC0L.0R'4,9,4:SE:TC0L.DR 2,9,4 

95 POKE CI, 200: POKE C2, 90: POKE 03,158 

100 IP PEEK (764) -23 AND X>40 THEN' X==X-?: 

POKE HI, X 

no IF PEEK (764)^:^22 AND X<200 THFM X-X+7 

nPOKE HI, X 

120 IF PEEK (764) =-33 AND F=0 THEN F==a : POK 

E H4,X+4:GDSUB 2100 

190 IF A=0 THEN 210 

200 A=A+C;PaKE H2,A:IF A<40 OR' A>200 THE 

N C==-C:GOSUD 4000 

205 IF B=-0 THEN 300 

210 B=B+D:POKE H3,B:IF B<40 OR B>200 THF 

N D=-D:GiOSUB 4100 

300 IF F==:0 THEN 400 

310 F-F+1:IF F=50 THEN F-0:POKE 764,0: GO 

TO 400 

320 POKE 53278, 1 

330 Z-=USR ( 12381 ) : Z-^USR ( 12381 ) 

340 IF PEEK (53263) =0 THEN 400 

350 SC-SC+ 1 5*PEEK ( 53263 ) : PR I NT " 

" ; SC 

355 FOR L-O TO 240 STEP 3: SOUND 2,1...., 4, 14 

: NE X T L : BOUND 2,0, , O 

360 IF PEEK (53263) -2 THEN A=0=POKE H2,0: 

GOTO 400 

370 B-0;POKE H3,0 

400 IF A + BOO THEN 100 

410 IF E<3 THEN WV=WV+l:GOTO 30 

420 GRAPHICS 1+16: POSITION 0,5: PRINT £6; 

"THREE SUBS. ESCAPED" 

425 POKE H 1,0: POKE H2,0:P0KE H3,0:P0KE H 

4,0 

430 POSITION 0,12:PRINT .G6; " end o-f gam 

e" 

440 POSITION 0,14: PR INT £6;" SCORE :"; 

SC 

445 POSITION 0,16:PRINT £6!" wave "5 

WV 
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450 POSITION 0,1 9: PRINT £6;" <SPACF>" 

460 OPEN £1,4,0, "K: " 

470 GET £1,A:IF A032 THEN 470 

4B0 CLOSE £1 

490 RUN 

1000 REM SET UP THE PLAYERS 

1010 POKE 559, 62: POKE 53277,3 

1020 PMBASE=40sP0KE 54279, PMBASE 

1 030 H 1 =53248 : H2-H 1 + 1 s H3-H2+ 1 : H4-H3+ ] 

1 040 C 1 =704 : C2=C 1 •+• 1 : C3=C2+ 1 : C4=C3-i-- j 

1050 POKE H 1,0: POKE H2,0:P0KE H3!^O:P0KE 
H4 , , - . .. 

1 060 P 1 =PMBASE#256+ 1 024 : P2- P 1 +256 : P3=:P':^ +• 

256:P4=P3+256 

1070 Z=USR( 12396) 

1080 PRINT CHR*(125);" WAVE NUMBER "; 

WV;"" 

1199 RETURN 

1500 REM READ IN THE MACHINE CODE 

1510 RESTORE 9000 

1520 FOR L= 12289 TO 12416 

1530 READ D:POKE L,D 

1540 NEXT L 

1599 RETURN 

2000 REM DRAW IN INITIAL SHIP/SUBS, 

2010 RESTORE 10000 

2020 FOR L=0 TO 7: READ A,B,C 

2030 POKE P 1 +L+48 , A : POKE P2+L+Y , B 

2040 POKE P3+L+Y,C 

2050 NEXT L 

2099 RETURN 

2100 REM DRAW IN INITIAL DEPTH CHARGE 
2110 POKE P4+60,24:P0KE P4+61 , 60: POKF P4 
+62 , 60 : POKE P4-I-63 , 24 : RETURN 

4000 REM MOVE SUB. 1 DOWN 

4010 FOR L=l TO 10:S0UND 1 , 10*L, lO, 14- ?::=. 

USR ( 1 23 1 1 ) : NEX T L : SOUND 1 , , , ' 

4020 P=p+1:IF pr=8 THEN A==0:POKE H"^ O-E^-^E 

4099 RETURN 

4100 REM MOVE SUB. 2 DOWN 
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4 11. FOR L= 1 TO 1 : SOUND 1 , 20*L , 1 , 1 4 : Z --= 

USR (1 2342 ) : ME X T L : SOUND 1 , , ,0 

4120 Q=::Q+1:IF Q:=6 THEEN B-OsPOKE 1-13,0: F=F 

+ 1 

4199 RETURN 

9000 DATA 1 73 , 255 ,44,72,1 62 , 254 ,189,0, 44 

,157,1,44,202,224,255,200,245 

90 1 DATA 1 04 ,141,0,44,1 04 , 96 

9100 DATA 173,254,45,72,173,255,45,72,16 

2,253, 189,0,45, 157,2,45,202,224,255 

9110 DATA 208,245,104,141,1,45,104,141,0 

,45,104,96 

9200 DATA 173,253,46,72,173,254,46,72,17 

3,255,46,72, 162,252 

9210 DATA 189,0,46,157,3,46,202,224,255, 

208,245 

9220 DATA 104,141,2,46,104,141,1,46,104, 

141,0,46, 104,96 

9300 DATA 162, 253 ,189, ,47,1 57 , 2 , 47 , 202 , 

93 1 DATA 208 , 245 , 1 04 , 96 

9400 DATA 1 62 , O , 1 69 , O , 1 57 , , 44 , 1 57 , , 45 , 

157,0,46,157,0,47 

94 1 DATA 232 , 208 , 24 1 , 1 04 , 96 

10000 DATA 64,4,32 

10001 DATA 94,4,32 

10002 DATA 82,4,32 

10003 DATA 243,126,126 

10004 DATA 255,193,131 

10005 DATA 127,193,131 

10006 DATA 63,126,126 

10007 DATA 0,0,0 
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SAFECRACKER 




Here is your chance to see if you could be of any use to 
Smiley's People as an inside man. 

We have set up a series of numeric codes for you to 
'crack' in orderto open the safe. 

Digits range from 1 to 8 inclusive. 



How to play 

Your computer will select, at random, it's own sequence 
and askforyourfirst choice of four numbers. 

Enteryour numbers and press RETURN. 

After your first 'guess' your 600 XL will put up it's 'mark' 
to show you how many of your numbers are correct, and 
how many are in the right place. 
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You will not be told which of your numbers Is in the 
correct place, only that one, or more, is in the correct 
place. You will still have to decide for your next move 
which of yourfirst selection is correct. 

We told you it was a test for Smiley's People didn't we. 



The Program 

10 REM SAf-E CRACKER 

20 DIM C(3) ,G(3) ,T(3) 

30 GtDSUB 1000 

40 GRAPHICE5 1-Kl,6 

50 G=:0:F=0 

60 OPEN £1,4,0, "l<: " 

80 GDSUB 1500 

100 G=6+1:IF G-11 THEN 900 

110 GOSUB 2000 

120 GOSUB 3000 

130 IF F=-0 THEN 100 

200 REM CORRECT DEDUCTION 

2 1 POS I T I ON ,18: PR I NT £6 ? " CORRECT 

II H 

220 FOR L-:^0 TO 3 

230 PRINT £6;C(L.) 5 " "! 

240 NEXT L 

250 POS I T I ON , 20 : PR INT £6 ; " IN " 5 G : " 

TURNS" 

260 GOTO 940 

900 REM NUMBER NOT GUESSED 

910 POSITION 0,1 8: PRINT £6; "THE NUMBER W 

AS : " 

920 POS I T I ON , 20 : PR I NT £6 S " " ; 

930 FDR L=0 TO 3: PR I NT £6;C(L);" ";:NEXT 

L 
940 GET £1,A:IF A032 THEN 940 
950 CLOSE £1 
960 RUN 
1000 REM RANDOM DIGITS TO CO 
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1 1 C ( ) :•---• I NT ( RMD ( ;l ) ¥ R+ ] ) 

1020 FOR L-l TO 3 

1 030 C ( L) == I NT ( RND ( 1 ) *8+ ]. ) 

1040 FOR I--=0 TO L--1 

1 050 IF C ( L) -C ( I ) THEN C ( L ) - 1 NT ( RND ( ] ) *B 

+1):G0T0 1050 

1060 NEXT I 

1070 NEXT L 

1099 RETURN 

1500 REM TITLE COLUMNS 

1510 POSITION 0,0: PRINT £6; "YOUR GUESS m 

y mark" 

1599 RETURN 

2000 REM GET A GUESS INTO GO 

2010 L=0 

2020 GET £l,D:D=D-4e 

2025 IF 0-79 THEN 2100 

2027 IF D=107 THEN 2200 

2030 IF D<1 OR D>8 THEN 2020 

2035 IF L=4 THEN 2020 

2040 POSITION 2+L*2,G+2: PRINT £6i;CHR*(D+- 
144) 

2050 G<L)=D:L=LH:GOTO 2020 

2100 L=L-1:IF L=-l THEN L==r.> 

2110 POSITION 2+L*2,G+2: PRINT £6!" "; 

2120 GOTO 2020 

2200 IF L<3 THEN 2020 

2299 RETURN 

3000 REM SCORE GO AGAINST CO 

3010 B1=0:W1=0 

3020 FOR H==0 TO 3 

3030 IF G(H)=C(H) THEN B1=B1+1 

3040 NEXT H 

3050 FOR L=0 TO 3: T (L) =C (L) : NEXT L 

3060 FOR J=0 TO 3 

3070 IF T(J)— 1 THEN 3110 

3080 FOR L=0 TO 3 

3090 IF T(J)=G(L) THEN Wl=Wl+l : T ( J ) =-i 
3100 NEXT L 
3110 NEXT J 
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120 W1=W1-B1 

130 IF Bl=4 THEM F--=l 

200 POSITION 14,2+G 

210 PRINT £6; El; " ";W1 

999 RETURN 
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FRUIT MACHINE 




This is a cheap way to play the machines without having 
to risk any of your hard earned cash. 

You will be given a fixed amount of credits at the 
beginning of the game and you are then playing against 
fate. 



How to play 

The 600 XL will spin the reels to begin the game and then 
stop on the centre line of the 'window'. 

Two of a kind will give a small payout and three will, 
obviously, give a greater reward. 
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There are random holds available to you and you select 
these by pressing 1, 2 or 3. If you change your mind on 
the holds you can release all reels by pressing R. You can 
then re-selectthe hold function if you wish. 

If the third reel stops on A then the machine will go into 
an auto-seek function and will stop when it selects three 
of a kind. 

After selecting your holds press SPACE to spin the 
remaining reels. If you do not wish to hold, or cannot 
hold, then press RETURN forthe next spin. 

The game ends when you are broke, or if you press 
BREAK. 



Programming Hints 

To change the success rate alter the data in Lines 9000 to 
91 50. Digits to 9 are allowed. 

To change the payouts alter the data in Lines 20000 to 
20010. This will mean you can have greater earnings, or 
greater losses. 



The Program 

10 REM FRUIT HACHINE 

11 REM WITH M/CODE SPIN 

15 DIM A(.31) ,B.:31) ,C(31) ,G(79) 

17 DIM F' ( 3 ) „ H ( 3 ) 

20 GOSUB 1000 

30 GOSUB 2000 

40 GOSUB 3000 

45 POKE 752, 1 

50 POKE HI, 100: POKE H2, 124: POKE H3,148 
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60 

65 

70 

80 

90 

1. 00 

1 1 

:115 

1.17 

120 

200 

202 

205 

210 

220 

230 

240 

250 

260 

270 

280 

290 

400 

4 1 

420 

425 

I NT 



M=^20 

COLOR 3 = F-'LOT 10,1 2 : F'LOT 

PRINT "CREDITS : " 

P(l)=16;;P(2)-16nP(3)=16 

POKE C 1,08: POKE C2 , 200 : POKE 

PRINT "";STR*(N) ; " 

IF rA~---0 THEN 900 

H ( 1 ) =0 : H ( 2 ) =0 : H ( 3 ) =^^0 : REIM 

COLOR 2: PLOT 13,8:DRAWT0 

IF RND(1)>0.7 THEN GOSUB 

REM SPIN REELS 

M==M - 1 

IF H( 1 ) +H(2) ■+H(3)^=3 

GOBUB 4100 

95 



29, 12 



C3 



NC] HOI... 

26,8 

4000 



THEN 400 



re 



DS 



THEN 210 



92 THEN 240 



IF RNDdXO, 

l-H 1 ) - 1 

GOSUB 4100 

IF RNDdXO. 

H ( 2 ) ■•=a 

GOSUB 4100 

IF RNDdXO. 9 THEN 270 

REM REELS ALL STOPPED 

REM SCORE REEL SETTING 

P==A ( P d ) ) : Q=:.B ( P ( 2 ) ) : R::=:C (PC 

IF R09 THEN 450 



;) ) 



PRINT 



TO 



427 FOR 1=200 
14: NEXT I 

428 SOUND 0,0,0,0 
430 H( 1 )==a :H(2)=0 

432 GOSUB 4100: IF 

433 H(2)=l 

434 GOSUB 4100: IF 
440 GOTO 410 

450 

460 

469 

470 

480 

490 M=M+D:; PRINT " 

*(D): PRINT "":GOTO 



AUTO 
STEP 



HUNT 

3: SOUND 0, 



" : PR 
I, 10, 



H ( 3 ) ■■=■■0 
P<>B(P 



(2) ) 
C ( P ( 3 ) ) 



THEN 
THEN 



43: 



434 



IF POQ THEN 540 

IF Q=R THEN 500 

REM PAIR ON THE LEFT 

RESTORE 20000: REM SCORES 

FOR I-l TO P+1:READ D:NEXT 



PAIR 
550 



iiCORES 



STR 
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4?9 F«EM ALL THE SAME 

500 RESTORE 20010: REM SCORES 

51.0 FOR I-l TO P+1:READ DsNEXT I 

520 M-M+D: PRINT " TRIPLE SCORES : " q STF 

*(D) : PR I NT "":GOTO 550 

530 REM MO SCORE 

540 PRINT " NO WIN LINE": PRINT " " 

54? REM END OF SCORING 

550 OPEN £1,4,0, "K: " 

560 GET £1,A 

570 IF A0155 THEN 560: REM ^ RETURN^' 

580 CLOSE £1 

585 PRINT " "jF 

PINT "" 

590 GOTO 100 

900 REM END OF CREDITS 

910 PRINT " YOU ^ RE BROKE NOW" 

920 PRINT " < SPACE > TO TRY AGAIN" 

930 OPEN £1,4,0, "K: " 

940 GET £1,A ' 

950 IF A032 THEN 940 

960 CLOSE £1 

970 RUN 

1000 REM DRAW PLAYFIELD 

1010 GRAPHICS 3 

1012 SETCOLOR 2,3,4 

1015 COLOR 2: SETCOLOR 1,9,2 

1020 FOR L-:0 TO 23: PLOT 0,L 

1030 DRAWTO 39, L: NEXT L 

1040 COLOR 4 

1050 FOR L=10 TO 14: PLOT 10, L 

1060 DRAWTO 29, L: NEXT L 

2000 REM READ IN THE MACHINE CODE 

2005 RESTORE 10000 

2010 FOR 1=12288 TO 12380 

2020 READ D:POKE I,D 

2030 NEXT I 

2099 RETURN 

3000 REM INITIALISE PLAYERS 

3010 PMBASE=40:P0KE 54279, PMBASE 

3015 POKE 559, 62: POKE 
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3U20 
3030 
3040 
3050 
3060 
3070 

3oao 

3 1 C)0 
3 1 1 

3 :l 20 
3125 
3 1 30 
3:1.40 
3150 

~T -I crcr 
•_■ .L ..J ,J 

3 1 60 
3170 
3180 
3190 
3200 
3210 
3499 
4000 
4005 
4007 
4010 
4020 
4030 
4040 
4050 

4060 
05 

4070 
4075 
(K-48) ,3 
4080 H(l< 
4100 
4 1 1 

4 1 20 
4 1 30 



P1=:^PMBASE*256+ 1024 

F' 2 - 1=' 1 + 2 5 6 ;: F' 3 -^ P 2 + 256 

C 1 =704 : (:;2-(:; l 4 1 : C3-C2+ 1 

H 1 :^=:5324a ;; H2=H 1 + 1 : 1- !3=^H2+ 1 

POKE H 1,0: POKE H2, On POKE H3,0 

RESTORE 9500 

POKE 623, 4: REM PLAYERS AT BACK 

FOR L^O TO 79 

READ D!;G(L)-D 

NEXT L 

RESTORE 9000 

FOR L-0 TO 31 

READ P,0,R 

A(L)=P:B(L,)-^^Q:C(L)-R 

S=L*B 

FOR 1=0 TO 7 

POKE P1+S+I,G(P*8+I) 

P2-I-S+I 

P3+S+I 

I 

L 



G(Q*8i-.I) 
G(R*a+l) 



POKE 
POKE 
NEXT 
NEXT 
RETURN 

REN SET HOLD FLAGS 
H( 1 )-=0:H(2)=0:H(3) =0 
COLOR 2: PLOT 13,8:DRAWT0 26,8 
OPEN £1,4,0, "K: " 
PRINT ■' HOLD NOW" 

PRINT "" 
GET £1,K 

IF K=32 THEN PRINT " 
": PRINT "": CLOSE £1: RETURN 

K=ASC<"R") THEN CLOSE £1:G0T0 



IF 



40 



IF K<49 OR K 
COLOR 3: PLOT 



51 THEN 4040 
7i-6)«-(K-4S) ,8: PLOT 



8+6* 



48)=--:l:G0T0 4040 
REM ADVANCE SPINNING RFEl S 
FOR Q=0 TO 3 

IF H<1)=0 THEN A=USR (12288) 
IF H(2)=0 THEN A=USR (12319) 
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4 1 40 

4 1 50 

4160 

4 1 70 

4 1 80 

4 1 90 

8999 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9 1 0<:) 

9 1 1 

9 1 20 

9130 

9140 

9150 

9499 

9500 

9510 DATA 

9520 DATA 

9530 DATA 

9540 DATA 

9550 DATA 

9560 DATA 

9570 DATA 

9580 DATA 

9590 DATA 

9999 REM 

10000 DATA 
10010 DATA 
,224,255 
10020 DATA 
10030 DATA 
10050 DATA 



IF H(3)-0 THEN A=USR( 12350) 

NEXT Q 

FOR Q==^l TO 3 

IF H(GT)<>1 THEN P(Q)=P<Q)-1 

IF P(Q)=-1 THEN P(Q)=31 

NEXT Q: RETURN 

REM REEL. DATA 



(J 



1 



4 
1 
9, 



1 

5 
7 
4,9 



7 



6,7 

-r 
/ 

1 



9,4 
2,8 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM SHAPE DATA 

DATA 0,24,36,211 
8, 16,86, 127 
0,255,85., 85 
0,63, 127, 1 



6 

5, 

4 

8. 
7,2 
6,5 
4,4 



203 



,8 
4,: 



6,2 
jb , 1 26 , 
5,85,25 
?48,252 



60 



, 
26, 

126,6.: 



36,24,24,36,66, 129 
146, 124, 16,40,68,68 
5,8, 16,32,64 



129,66, 

56, 186. 

0,7,3. 

24,24, 

, 66 , 23 1 , 255 , 1 26 , 60 , 60 , 24 

, 24 ,36,36,1 26 , 66 , 66 , 66 
MACHINE CODE DATA 

1 73 , 254 ,44,72,173, 255 , 44 , 72 
162,253, 189,0,44, 157,2,44,20: 



208,245, 
104, 141. 
173,254. 



104, 141, 1,44 
0,44, 104,96 



7: 



96 



10060 DATA 162,253, 189,0,45, 157,2, 4r=., 702 

,224,255 

1 0070 DATA 208 ,245,104,141,1,45 

1 0080 DATA 1 04 ,141,0,45,1 04 , 96 

10100 DATA 173,254,46,72,173,255,46,72 

10110 DATA 162,253,189,0,46,157,2,46 



55,208,245, 104, 141, 1 



10120 DATA 202,224 

,46 

10130 DATA 104,141,0,46,104,96 

19999 REM PAIR SCORES 

20000 DATA 1,1,2,2,3,3,4,4,5,5 

20009 REM TRIPLE SCORES 

200 1 DATA 2,3,4,5,6,7,8,9,10, 20 
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ROBOT ISLAND 




This is going to be a nasty experience for those who don't 
like robots, ghosts, water, or quicl<sand. 

You are the only survivor of the mad professor's plans to 
turn humans into robots and you are being pursued 
across an island by one of the robots, and a ghost. 

You can kill the robot (if kill is the correct word) by luring 
it into quicksands or by leading it towards the cliffs where 
it may stumble and fall into the sea. 

You cannot kill the ghost (it stands to reason as it is 
already dead) but you can stop it catching, and killing, 
you by destroying the robot. This will release the ghost's 
spirit. 
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How to play 

The game will commence with the ghost appearing from 
the left hand side and the robot from the top right. The 
quicksand is to be found in the top left. Remember that 
you can also become a victim of the quicksand so don't 
stray too close to the edge. 

Use keys Z and X for left and right and / and + for up and 
down. 

Your score appears at the game end and you can 
recommence the chase by pressing SPACE. 



Programming Hints 

Changing starting points for each of the 'characters' is 
achieved by altering lines 50, 60 and 70. 

You can also change the size of the quicksand area by 
altering the data in Line 1110. 

To slow the game down for younger players, enter a 
delay by inserting Line 105 FOR Z= 1 to 40: NEXTZ 



The Program 

10 REM ROF:iOT ISLAND 

20 graphics 5+16 
25 poke;;; 623,4 

30 GDSUB 1000 
40 GDSUB 2000 
45 GOSUB 3000 
50 X1-120:Y1=75 
60 X2=:^80: Y2=^::80 
70 X3==140: Y3=^:^50 
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f30 POKE C 1 , 1 3M :l h+ 1 2 : F'OKE C2 , 4>' 1 6 + R : POKF 

C3, 6*16-1- 10 

90 POKE HI, XI: POKE H2,X2=P0KE H3, X3 

95 M=22:Rl-lsR2-l 

97 SC^=0: 7=500 

100 K-PEEK(764) 3 IF K-22 OR K-23 OR K-3R 

OR K-6 THEM M-K 

1 1 I F h1-22 THEM X 1 - X 1 i 2 z F'GKE H 1 , X 1 

120 IF M-23 THEN XI -XI 2: POKE H1„X] 

130 IF M-38 THEN Yl -Yl i 2: A-^USR < 12208) 

140 IF M-6 THEN Yl-Yl 2: A-USR ( 1 2301 ) 

200 POKE 5327B, 1 

210 IF PEEK (53260)00 OR PEEK (53252) ■:■ ■^0 

THEN 4000 

300 REM MOVE ONE OF THE ROBOTS 

305 POKE 5327!!:!, 1 

310 IF R1=^0 THEM 500 

320 IF R-2-^0 THEM 40r) 

330 IF RND(1)<0>5 THEN 500 

400 REM MOVE THE GHOST ROBOT 

410 IF X2>X1 THEM X 2=^X2-2: POKE H2,X2 

420 IF X2<X1 THEN X2=X2+2:P0KE H2,X? 

430 IF Y2>Y1 THEM Y2-Y2 2: A=US5R ( 12327) 

440 IF Y2<Y1 THEN Y2-Y2-i 2: A=:HSR ( 1231 4) 

490 GOTO 600 

500 REM SECOND ROBOT 

510 IF X3>X1 THEN X3=X3 2: POKE H3, X3 

520 IF X3<X1 THEN X3-X3+2sP0KE H3,X3 

530 IF Y3>Y1 THEN Y3-^Y3 -2: A=USR ( 12353) 

540 IF Y3<Y1 THEN Y3-Y342: A-UBR ( 12340) 

600 REM SEE WHAT HAPPENED 

650 IF R2-1 AMD PEEK (53254) <>0 THEN GOSU 

B 5500 

660 IF PEEK (53260)00 THEN 4000 

670 IF T>0 THEN T=T-5 

680 BC^=:SCi-l 

690 IF R2::---^l THEN 100 

700 REM BOTH ROBOTS ARE DEAD 

710 GOTO 4400 

1000 REM DRAW ISLAND 

1010 COLOR 3: PLOT 5.0 
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1 020 

1 030 

1 040 

1050 

1 1 00 

1 1 1 

1199 

2000 

20 1, 

2020 

2030 

2040 

2050 

2060 

2070 

20S0 

2090 

2 1 00 

2 .1. 1 

2 1 20 

2130 

2 1 40 

2150 

2160 

2199 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

4000 

4010 

4015 

4020 

4030 



4040 

4050 

4 1 00 



50„3:DRAWT0 73, 1: 
52, 19nDRAWTD 76, 



36,47:DRAWT0 



1 



r.4 

^8 



18: PLOT 21, 18;; PLOT 21, 17 



() 



DR'AWTG 

DRAWTO 

LMRAWTO 

DRAWTO '; 

COLOR 2 

PLOT 20. 

RETURN 

REM DEFINE PLAYERS 

PMBABE=^:40 : POKE 54279 , PMBASE 

POKE 559, 62: POKE 53277,3 

H 1 -53248 : H2-I-1 1 + 1 ;: 1-I3:::4I2+ 1 

POKE H 1,0 SPOKE H2,0:P0KE H3 

C 1 -704 : C2=C 1 -i 1 : C3-C2+ 1 

P 1 =PME-iASE*256+ 1 024 

P2=P 1 +256 : P3-P2 + 256 

FOR 1=0 TO 255 

POKE P1+I,0:P0KE P2+ 1,0: POKE P3+I,0 

NEXT I 

RESTORE 9000 

FOR I-O TO 7 

READ A,B,C 

POKE P2+ I +80 , C : POKE P3+ I +50 , A 

POKE P1+I+75,B 

NEXT I 

RETURN 

REM COPY MACHINE CODE DOWN 

RESTORE 8000 

FOR L- 12288 TO 12365 

READ D 

POKE L,D 

NEXT L 

RETURN 

REM HERE IF 

FOR L=0 TO 240 

POKE C1,L 

SOUND , L , 1 , 1 : SOUND 1 , L+4 , 1 O , 1 

SOUND 2,L+8, 10, 10: SOUND ' 3, L+ 12, 10, 1 

NEXT L 

FOR L=0 TO 3: SOUND L, 0,0,0: NEXT L 

POKE H 1,0: POKE H2 , : POKE H3 , 



PLAYER LOSES 
STEP 3 
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4 1 :l. C5R AF'H I CS :l. + 1 6 ;: T^OS I T I ON . 1 

4120 F'RINT £6;"cauqht by thp robots" 

4130 F'OSITION 0, 14 

4140 PRINT £6;" SCGRE : ";STR*(Sr) 

4150 POSITION 0, 17 

4160 PRINT £6!" < -Hpace:- " 

4190 OPEN £1,4,0, "K: " 

4200 GET £1,A ' 

4210 IF AOASCC ") THEN 4200 

4220 CLOSE £1 

4399 RUN 

4400 REM HERE WHEN PLAYER WINS 
4405 POKE Hl,0;iPGKE H2, On POKE H3,0 
44 1 GR Al"-'hl I C:S 1 f 1 6 : PC3S I T I ON , 1 
4420 PRINT £6;" YOU GOT THE ROBOT" 
4430 GOTO 4130 

5000 REM ROBOT ONE KILLED 

5010 R1"0 

5020 SC=SC+T 

5030 POKE H2,0 

5040 RETURN 

5090 RETURN 

5500 REM ROBOT TWO KILLED 

O 

S 

5530 POKE H3,0 
5540 RETURN 

7999 REM NOW THE MACHINE CODE 

8000 DATA 1 62 , 253 ,189,0,44,157,2,44, 20? , 
203,247,104,96 

8010 DATA 162,0,189,2,44,157,0,44,232,20 

8,247,104,96 

8020 DATA 1 62 , 253 , 1 89 , ,45,157,2, 45 , 202 , 

208,247,104,96 

8030 DATA 162, O , 1 89 ,2,45,157,0,45, 232 , 20 

8,247,104,96 

8032 DATA 1 62 , 253 , 1 89 , O ,46,157,2.46, 202 , 

208,247,104,96 

8050 DATA 1 62 ,0,1 89 , 2 , 46 ,157,0,46, 232 , 20 

8,247,104,96 

8999 REM THE SHAPES FOR THE PLAYERS 
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9000 DATA 0,56,0 

9001 DATA 0,56,0 

9002 DATA 6,56, 14 

9003 DATA 15, 150, 15 

9004 DATA 6,120,29 

9005 DATA 9, 16,25 

9006 DATA 0,40,31 

9007 DATA 0,68,62 
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FLAGS OF THE WORLD 




How many times have you heard the muttered comment 
at a football, athletic of international meeting about 
whose flag is whose? 

Your worries are over after you use this program. You 
will be able to attend the United Nations and show off 
your knowledge with a smile and a shrug. 



How to use 

Your 600 XL will print on your screen, for a few seconds, 
the names of three countries. 

You will then be shown, in full colour of course, a flag 
which will represent one of the countries which has just 
been listed on your screen. 

To make your choice of country press 1 , 2 or 3. 
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If your answer is incorrect you will be told the correct 
answer. You will be given a score out of ten at the end of 
the game. 



Programming Hints 

If you are a keen programmer and want to experiment 
with the contents of the program then change lines 9000 
onwards to alter the colours, sizes and shapes of the 
flags. 



The Program 

10 REM FLAGS OF THEE: WORLD 

20 OFEM £1,4,0, "l<: " 

30 DIM P(3) 

40 DIM T1;(20) 

50 Sr>0:J:=:0 

1 J = J + 1 : I F J = 1 1 T H E M 8 

110 GDSUB 4000 

120 GDSUB 5000 

130 RESTORE 8900 +G* 100 

140 GOSUB 1000 

1 50 GET £ 1 , D . I F D< ASC ( " 1 " ) OR D >ASC ( 

THEN 1 50 
200 IF P(D-4S)::=:G THEN 400 
300 REM WRONG ANSWER 
3 1 GIRAFH I CS 1 ■+ 1 6 : PC3S I T I ON O , j ? 
320 PRINT £6 5" INCORRECT" 
330 FOR L^=l TO 20O:NFXT L 
335 RESTORE 10000 

340 FOR L-1 TO GiiREAD T$nNFXT I 
350 POS I T I ON 5,17: PR I NT £6 ? T* 
360 FOR L=l TO 500: NEXT I 
370 GOTO 100 
400 REM CORRECT ANSWER 
4 1 GRAPH I CS 1+16: POS I T I ON 0,12 
420 PRINT £6;" CORRECT" 
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430 


FOR L-l TO 500: NEXT 1 




440 


SC-SC+l 




450 


GOTO 100 




BOO 


REM TEN aUEErriONS ANSWFRFD 


810 


GRAPHICS 1+16 




820 

tl 


POS 1 T I ON ,, 8 :: F•r^• I NT £6 ; " 


END OF QUIZ 


830 
: " !! ! 


POS I T I ON „ 1 4 : PR I NT £6 5 " 
3C 


YOU SCORED 


840 


P0S3 1 T I ON ,17: PR I NT £6 3 " 


OUT OF 10 


850 


POS I T I ON , 20 : PR I NT £6 5 " 


< SPACE > 



860 GET £1,A 

870 IF A032 THEN 860 

880 RUN 

1000 REM DRAW FLAG 

1010 GRAPHICS 7+16 

1013 FOR L-0 TO 2: READ A,B:SETCOLOR I, A, 

B:NEXT L 

1020 C^O 

1030 C- C+ 1 : COLOR C:IF C-4 THEN 1999 

1040 READ X:IF X-0 THEN 1030 

1 050 READ Y , X 1 , Y 1 , CX , CY , N 

1060 FOR L===l TO N 

1070 PLOT X,Y:DRAWTO X1,Y1 

1080 x=:x+cx: y=^^y-m:;y 

1 090 X 1 ^-■- X 1 +C X : Y 1 ^= Y 1 +CY 

1100 NEXT L 

1110 GOTO 1040 

1 999 SETCDLOR 4,0,2: RETURN 

4000 REM CHOOSE A FLAG 

4001 REM AND THE TWO INCORRECT ONES 
40 1 G-- 1 NT ( RND ( 1 ) *S+ 1 ) 

4 2 W 1 - 1 N T ( R N D (1 ) * 8 +• 1 ) 

4030 IF W1=G THEN 4010 

4040 W2= I NT ( RND ( 1 ) *8+ 1 ) 

4050 IF W2--W1 OR W2=G THEN 4040 

4099 RETURN 

5000 REM PRINT THE THREE CHOICES 

5010 GRAPHICS H-16 
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5020 

ces 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5 1 20 

5130 

5140 

5150 

5160 

5170 

5180 

5199 

90(1)0 

9010 

9020 

9030 

9040 

9050 

9060 

9099 

9100 

9 1 1 

9120 

9 1 30 

9199 

9200 

9210 

9220 

9230 

9299 

9300 

9310 

9320 

9330 



POSITION 0„4:F'RIMT £6 5" the choi 

POS I T I ON ,10: PR I NT £6 ; " 1 ) "5 

POS I T I ON .,13: PR INT £65" 2 ) " ; 

POS I T I ON , 1 6 ,■: PR I NT £6 ; " 3 ) " ; 

P (1 ) =^^G : P ( 2 ) -W 1 : P ( 3 ) =W2 

POR L- 1 TO 1 : T- 1 NT ( RND ( 1 ) *3 i- | ) 

S-INT(RND(l)*34l) 

TT-P ( T ) : P ( T ) -P ( S ) n P ( S ) -TT 

NEXT I. 

FOR L-1 TO 3 

RESTORE 10000 

FOR 1=1 TO P(L) 

READ T1;:NEXT I 

POSITION 4,7+Lx-3 

PRINT £6;T* 

NEXT L 

FOR L==l TO 700: NEXT L 

RETURN 

DATA 8,2, 13, 10,0,0 

DATA 1, 1, 1,38, 1,0,50 

DATA 1,58, 1,95, 1,0,50 

DATA 70 , 1 , 70 , 38 ,1,0, 90 

DAT A 70 , 58 , 70 , 95 , 1 , , 90 

DATA 0, 1 , 39, 1 , 57, 1 , 0, 159 

DATA 51, 1,51,95, 1,0, 19 

DATA 0,0 

DATA 11,2,0,, 14,3,4 

DATA 1,1, 1,95, 1,0,52 

DATA 0,52,1,52,95,1, , 52 

DATA O , 1 03 ,1,1 03 ,95,1,0,52 

DATA 

DATA 5,2,0, 14,3,4 



1, 1,95, 1,0,52 

52, 1,52,95, 1,0,52 

103, 1, 103,95, 1,0,5.: 



DATA 1 

DATA 0. 

DATA 0. 

DATA 

DATA 0,0, 13, 10,3,2 

DATA 1, 1, 1,95, 1,0,52 

DATA 0,52, 1,52,95, 1,0,52 

DATA 0, 103, 1, 103,95, 1,0,52 
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9399 DATA 

9400 DATA 8,2,0, 1 4 , , 

94 1 DATA :l. , 1 , 1 , 20 ,1,0, 25 
9420 DATA 1 , 30 ,1,46,1,0,25 
9422 DATA 40, 1 , 40, 20, 1 , 0, 25 
9424 DATA 40,30,40,46,1,0,25 
9426 DATA 65, 1 , 159, 1 , 0, 1 , 10 
9428 DATA 65 , 38 , 1 59 , 38 ,0,1,9 
9430 DATA 65,21,159,21,0,1,9 
9432 DATA 1,58,159,58,0,1,14 
9434 DATA 1,82,159,82,0,1,12 
9440 DATA O, 65, 1 1 , 159, 1 1 , 0, 1 , 10 
9450 DATA 65 , 30 , 1 59 , 30 ,0,1,9' 
9460 DATA 1,47,159,47,0,1,12 
9465 DATA 1,70,159,70,0,1,12 
9470 DATA 26,1,26, 47 , 1 , , 1 4 
9480 DATA 1,21,64,21,0,1,9 

9499 DATA 0,0 

9500 DATA 3,2, ,14,8,2 

95 1 DATA 1 , 1 ,159,1, ,1,32 
9520 DATA 0, 1 , 32, 159, 32, 0,1, 32 
9530 DATA 0,1,63,159,63,0,1,32 

9599 DATA 

9600 DATA 3,2,0,14,3,2 
9610 DATA 1,1,159,1,0,1,32 
9620 DATA 0,1,32,1 59 ,32,0,1, 32 
9630 DATA 0,1,63,159,63,0,1,32 

9699 DATA 

9700 DATA 0,0,3,2,2,6 
9710 DATA 1,1,159,1,0,1,32 
9720 DATA 0,1,32,159,32,0,1,32 
9730 DATA 0,1,63,159,63,0,1,32 
9799 DATA 

10000 DATA SWEDEN, ITALY, FRANCE: 

10010 DATA BELGIUM, GREECE, NETHERLANDS 

10020 DATA AUSTRIA, GERMANY 
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CRUISE ATTACK 




You are in charge of a missile launcher which is seeking 
to destroy a series of stationary targets on the other side 
of a range of hills. 



How to play 

You must work out the trajectory and speed of your 
proposed launch and fire using the RETURN key. 

The 600 XL will, automatically, calculate the gravity 
involved in letting the missile fall. 

After each shot the target will be moved and the hills will 
assume a different shape which is randomly generated 
by your computer. You will have to recalculate your 
approach after each shot. 

You have five missiles and each hit is worth ten points. 
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Programming Hints 

To change the gravity of the atmosphere, and therefore 
increase or decrease the rate of fall, alter LINE 60. 



The program 

10 REM CRUISE ATTACK 

20 T=5 

30 OF='EM £1,4,0, "l<: " 

50 DEG 

60 [5=9.81 

70 SC-0 

100 GOSUB 1000 

110 G(DSL)B 2000 

150 GOSUB 3000 

200 REM MOVE MISSILE 

210 X ::= V*COS ( TH ) : Y=: V>fS I M ( TH ) 

220 A^-10:B:^=10 

230 C-A+X/30n D-B+Y/30 

240 Y=:Y-G/30: X==X-0.02 

245 Z-=0 

250 IF 0159 THEM 700 

260 IF B>79 THEN 305 

270 IF D<:=^^0 THEM 500 

300 COLOR 4;; PLOT A,79-B 

305 IF D>79 THEM 320 

307 LOCATE C,79--D,Z 

310 COLOR IjPLOT C,79-D 

320 A=C:B=^D 

400 IF 2^=^:0 THEN 230 

500 REM DECIDE WHAT HAPPENED 

510 IF Z=0 THEN 700 

520 COLOR 1:PL0T C-3, BO-D: DRAWTO C,79-D 

530 DRAWTO C 2, 77- D: PLOT C,79--D 

540 DRAWTO C-l,82-D 
550 ON Z-1 GOTO 600,700 
600 REM HIT THE TARGET 

610 PRINT CHR*(125) ; " A 

HIT ! ! ! 
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620 F'Of^ L-l TO 200: SOUND 0, L, 8, L/ 14: NEXT 

L 

630 SC=SC+:L0 

640 PRINT " SCORE " ; SC 

650 SOUND 0,0,0,0 

660 GOTO 790 

700 REM MISSED THE TARGET 

710 PRINT CHR$(125):;" MISSE 

D 

730 FOR L-O TO 250: SOUND 0,L,10,14 

740 SOUND l,L.-i7„ 10, 14:NEXT L 

750 SOUND 0,0, 0,0: SOUND 1,0,0,0 

790 T=:T-1:IF TOO THEN 100 

800 GRAPHICS 1 +1 6: POSITION 0,8: PRINT £6; 

"FIVE MISILES FIRED" 

810 POSITION 0,1 2: PRINT £6;" Prid ai tu 

rn" 

820 POSITION 0,15: PRINT £6;" score : " ; SC 

830 POSITION 0.1 9: PR I NT £6;" •::• SPAC 

E >" 

840 GET £1,D:IF D032 THEN 840 

850 CLOSE £1 

860 RUN 

lOOO REM DRAW A HILL 

1010 GRAPHICS 7 

1015 Y:--^::79 

1020 COLOR 3: PLOT 19,79 

1030 FOR X=21 TO 93 STEP 3 

1040 DRAWTO X,Y 

1050 IF X<50 THEN Y=Y~ INT (RND (1 ) *1 4) 

1060 IF X>55 THEN Y-Y+INT (RND ( 1 ) *1 1 ) 

1070 IF Y>79 THEN Y=79-INT (RND ( 1 ) #1 O) 

1080 IF Y<10 THEN Y-IO+INT (RND ( 1 ) *5) 

1090 NEXT X 

1095 DRAWTO 95,79 

1199 RETURN 

2000 REM DRAW GUN AND TARGET 

2010 COLOR 2: PLOT 0,79: DRAWTO 0,76:DRAWT 

4, 76: DRAWTO 4,79 

2020 DRAWTO 0,79: DRAWTO 0,77: DRAWTO 4,77 

: DRAWTO 7,74:DF;AWT0 7,73 
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2030 DRAWTD 4,76 

2 1 00 X - 1 MT ( RND ( 1 ) x -50+ 100) 

2110 PLOT X,79:DF;AWT0 X+8,75 

2120 F'LOT X-i-£3,79:DRAWTO X,75 

2130 PLOT X,79:DRAWT0 X+8,79 

2199 RETURN 

3000 REM GET ANGLE / VELOCITY 

30 1 PR I NT CI-IR* (125);" ANGLE " ; 

3020 INPUT TH: IF TH< 1 OR TH>a9 THEN 3010 

3030 PRINT CHR* (125) ; "MUZZLE VELOCITY (1 

-50) "; 

3040 INPUT V: IF V<1 OR V>50 THEN 3030 

3050 POKE 752,1: PRINT : REM CURSOR OFF 

3099 RETURN 
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BAT 'N' BALL 




This game is for two players each of whom has to guard 
a goal from their opponent. 

Each player has five balls to play and score with but you 
can, of course, score a goal with your opponent's ball. 



How to play 

Each player has two keys to move their bat up and down 
as follows 



PlayerOne AandZforUpandDown 
PlayerTwo + and /for Up and Down 
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Programming Hints 

To make the game more difficult you can reduce the size 
of the bats by altering the number in Line 60. 

By the way, you cannot cheat by altering the size of one of 
the bats to your advantage. Sorry. 



The Program 

10 F^EM BAT 'N' BALL 

30 POKE 752,l:f-fEli DISABLE CUF^SOR 

40 P1=--=0:F:'2=--0:REM INITIALISE SCORES 

50 0::= 10s REM NUMBER OF- GAMES LEFT 

60 H=4:REM LENGTH OF BAT 

70 Z=19--H:REM MAX Y POS. FOR BATS 

80 D-:--5sREM MIN Y POS. FDR BATS 

90 SETCOLOR 2,7, 10 

100 REM GAME LOOP 

110 GOSLJB 1000 

120 A-10:B-10:REM INITIAL POS 

122 COLOR 2 

124 PLOT 0,A:DRAWTO 0,A + H--1 

126 PLOT 39„B:DRAWT0 39,B4H-1 

130 C==0:D::=^0!;REM NO 

135 IF G^^^^O THEN 7000 

140 IF G>5 THEN GOSUB 1500: GOTO 200 

150 GOSUB 1600 

200 REM PLAY LOOP 

210 F:-PEEFa764) 

220 IF 10=63 OR F::>23 THEN C=4:;: 

230 IF K-3S OR k>6 THEN D-F-: 

240 IF C-63 AND A>Q THEN GOSUB 3000 

250 IF C-23 AND A< Z THEN GOSUB 3100 

260 IF D-^6 AND B>Q THEN GOSUB 3500 

270 IF D-38 AND B<Z THEN GOSUB 3600 

300 S==X-H: T=Y+J 

305 IF S-= 1 OR S=^40 THEN 700 

310 LOCATE S,T,U 
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320 IF U-2 THEM I- I : GOTO 300 

330 IF U=l. AMD T-0 THEN J--J:;GGTO 300 

340 IF U-1 AND T=23 THEN J— J: GOTO 300 

350 IF U-1. THEN I :^- 1: GOTO 300 

400 COLOFa' 4: plot X,Y 

410 COLOR 3: PLOT S,T 

420 X~S:Y::=T 

690 GOTO 200: REM REPEAT MOVEMENT 

700 REM BALL OUT OF PLAY 

703 IF S=^:: I THEN P2=^P2+1 

706 IF S=40 THEN P1=P1 + ], 

710 FOR L==0 TO 100 STEP 2 

72(:) SOUND , L , 1 ,14: BOUND 1 , L+6 , 1 , 1 4 

730 SOUND 2 , L+ 12,10,14: SOUND 3 , L+ 1 8 , 1 , 1 

4 

740 NEXT L 

750 FOR L=^0 TO 3: SOUND L, 0,0,0: NEXT L 

760 G-G-1:REM REDUCE NO. OF GAMES LEFT 

770 GOTO 100 

1000 REM DRAW COURT 

1005 GRAPHICS 3+16 

1010 COLOR 1:PL0T 1,5:DRAWT0 1,0 

1020 DRAWTO 3S,0:DRAWT0 38,5 

1 030 PLOT 1,18: DRAWTO 1,23' 

1040 DRAWTO 38, 23: DRAWTO 38,18 

1099 RETURN 

1500 REM PLAYER ONE SERVES 

1510 X-2: Y-12: I-l: J-1 

1520 RETURN 

1600 REM PLAYER TWO SERVES 

1 6 1 X=:57 : y= 12:1 :=- 1 : J== 1 

1620 RETURN 

3000 REM PLAYER ONE UP 

3010 COLOR 2: A::^ A- 1: PLOT O, A 

3020 COLOR 4: PLOT 0,A+H: RETURN 

3100 REM PLAYER ONE DOWN 

3110 COLOR 2: PLOT 0,A+H:A=A+1 

3120 COLOR 4: PLOT 0,A-1: RETURN 

3500 REM PLAYER TWO UP 

3510 COLOR 2:B-B--1:PL0T 39, P 

3520 COLOR 4: PLOT 39, B+H: RETURN 
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3600 REM PLAYER TWO DOWN 
361.0 COLOR 2: PLOT 39, B+H: B-B+1. 
3620 COLOR 4: PLOT 39, B-1 : RETURN 
7000 REM TEN BALLS UE3ED UP 
7010 GRAPHICS H- 16: POSITION 0,8 

7020 PRINT £65" match over --" 

7030 POSITION 0, 11 

7040 PRINT £6; "PLAYER PLAYER" 

7050 POSITION 0, 13 

7060 PRINT £6; " ONE TWO" 

7070 POS I T I ON 3,17: PR I NT £6 ; BTR* (PI) 

7080 POS I T I ON 13,17: PR I NT £6 5 STR* ( P2 > 

7100 OPEN £1,4,0, "K: " 

7110 GET £1,A ' 

7120 IF AOASCC" ") THEN 7110 

7130 CLOSE £1 

7140 RUN 



116 



EGG CATCHER 




Here is a chance to see if you would be of any use on a 
battery chicken farm. 

We are going to drop an endless stream of eggs from the 
top of the screen, at random, and you are going to have to 
run left and rightto catch them. 

When you have caught one you run to the left, drop it into 
a shute and it shoots back to the top, earning you points. 

By the way, you can only have one egg in the basket at 
one time; you know that it's not safe to have all your eggs 
in one basket! Sorry about that one. 



How to play 

Using keys Z and X you move the basket left and right. 
Press SPACE to stop beneath the falling egg. 



I II 
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You don't need to press any keys when you reach the 
shute on the left, your 600 XL will pick up the eggs for 
you. 

Drop five eggs and the game is over. By that time anyway 
you will be standing in a large omelette. 



The Program 

10 REM EGG CATCHER 

20 DIM S*(5) 

30 S1;=" \__/ " 

50 GRAPHICS 0:POI<E 752,1: PRINT 

FOR L=0 TO IS; PGS I T I OM 1 , L : PR I NT £6 ; " 
; :NEXT L 

60 SETCOLOR 2, 4, 0: SETCOLOR 1,0,10 
70 B=5: POSITION B, 20: PRINT £6;S*; 
80 X=0:F=0 
90 M=0:SC=0 

100 POSITION B, 20: PRINT £63 5$; 
102 IF M-5 THEN 800 

105 IF PEEK (764) =23 AND B>0 THEN B-B~l 
110 IF PEEK (764) =22 AND B<36 THEN B=B+1 
200 IF XOO THEN 210 
203 IF RND(1)<0.9S THEN 300 
206 X=5+ I NT ( RND ( 1 ) *30 ) : Y=0 

210 LOCATE X,Y+l,H:IF H092 AND H047 AN 
D H095 THEN 215 

211 F=1:S*=" =0= ":BC=SC+10 

213 POSITION X,Y: PRINT £6;" ■';:X=0:GOTO 

300 

215 POSITION X,Y: PRINT £6;" "5 

220 Y=Y+1: POSITION X,Y: PRINT £6;"0"!1 

230 IF Y=22 THEN POSITION X,Y: PRINT £611" 

": X=0:M=M+1 
300 IF BOO OR FOl THEN 100 
310 S*=" \_/ " 
320 F=0: POSITION 0,20: PRINT £6iiS* 
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330 FOR L=1B TO STEP -1 

340 SC=SC+ 1 : SOUND , L*20 ,10,14 

350 PDSITI0^4 2, L: PRINT £6i;"Q" 

355 POSITION 2,L+1:PRINT £6il " "5 

357 POSITION 15, 23: PRINT £6; "SCORE : ";S 

C; 

360 NEXT L 

370 POSITION 2,0: PRINT £6;" "s 

380 SOUND 0,0,0,0 

400 GOTO 100 

800 REM FIVE ESCAPED THE CATCHER 

805 GRAPHICS 1+16 

010 POSITION 0,8!PRINT £6; "you dropp€?d -f 

i ve" 

820 POSITION 0,1 5: PRINT £6!" SCORE s " 

;sc 

830 POS I T I ON , 20 : PR I NT £6 H " < r et ur n 

':■ " 

840 OPEN £1,4,0, "K: " 

850 GET £1,D:IF DO 155 THEN 850 

860 CLOSE £1 

870 RUN 
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BLACK HOLES 




Coming at you this time, intent on a collision course, are 
two suicidal aliens. 

You will have very little time to spot them and react as 
they have the advantage of vanishing into a 'black hole'. 
While they are inside the void they will still be able to 
alter course and will therefore shoot out towards you 
from angles which you may not have had time to cover. 

You will need all your wits and powers of concentration 
to estimate their eventual flight path. 



How to play 

Use keys Z and X to move left and right and SPACE to fire. 

Remember that anticipation is the name ofthe game and 
try not to 'bite the dust'. 
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The Program 

10 f;:em black holes 

11 rem with m/code movement 

12 DIM M$(20) 
15 GOSUB 1500 

17 SC=0:LV=0 

18 F'OKE 623,4 

20 GRAPHICS 5: POKE 752,1: PRINT 

30 GOSUB 1000 

40 GOSUB 2000 

50 X = 1 20 : POKE H3 , X : POKE C3 , 200 

60 A= I NT ( RND (1 ) * 1 1 0+55 ) : B=^ I NT ( RND ( 1 ) * 1 1 O 

+55) 

70 P=50:Q=50 

80 POKE CI, 40: POKE C2, 74: POKE HI, A: POKE 

H2,B 

90 M=0:HI=:0 

95 GOSUB 5000 

100 Z-USR ( 12288) : Z-USR ( 1231 1 ) : Z=USR (1228 

8) : Z-USR( 12311) 

102 POKE 53278, 1 

105 IF HI =2 THEN 700 

110 P=P+2: 0-^=0+4 

115 IF A=0 THEN 125 

117 A=A+INT(RND(l)-x5-2) 

120 IF P>100 THEN A=A+3*SGN ( X-A) : POKE HI 

,A 

122 IF P >240 THEN A= I NT ( RND ( 1 ) * 1 1 0+55 ) : P 

=P~256:P0KE HI, A 

125 IF B-=0 THEN 200 

1 27 B=B+ I NT ( RND ( 1 ) *5 -2) 

130 IF Q>100 THEN B^-:B+3*SGN ( X-B) : POKE H"^ 

1 32 IF Q >240 THEN B- 1 NT ( RND ( 1 ) » 1 1 0-i 55 ) : Q 

=Q-256:P0KE H2,B 

200 IF PEEK (53262)00 THEN 800 

205 IF PEEK (764) =23 AND X>45 THFN X=X-7: 

P0K:E H3 , X 

210 IF PEEK (764) -22 AND X<200 THEN X=-X+'^ 
:POKE H3,X 
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220 IF PEEK (764) ^33 AND M-^0 THEM POKE 114 

, X : GOSUB 2500 : M= 1 90 

300 IF M~-0 THEM 400 

305 POKE 53278, 1 

310 M-M-5:IF M<35 THEM M-0:POKE 764,0 

320 Z=USR ( 12342) : P(DKE C4, IMT (RMD ( 1 ) *256) 

330 IF PEEK (53263) -::0 THEN 400 

335 GOSUB 6000 

340 IF PEEK (53263)-! THEN HI=HI + 1 : SC:=SC+ 

10:A=0:P0KE HI , A: M-0: POKE H4,M:P0KE 764, 

0:GOTO 390 

350 IF PEEK (53263) =2 THEN HI=HI+1 : SC=SC+ 

20 : B=0 : POKE H2 , B : M-0 : POKE H4 , M : POKE 764 , 

0:60T0 390 

360 HI=2:SC-SC+40:A-0sB-0:P0KE HI, A: POKE 

H2 , B : M=0 : POKE H4 , M : POKE 764 , 
390 PRINT " SCORE : " ; SC 
400 GOTO 100 

700 GRAPHICS 1 + 16: POKE H 1,0: POKE H2,r)5Pn 
KE H3,0:P0KE H4,0 
705 POSITION 0, 10 

710 M*:=^:"30. . - YOU SURVIVED. .. ":GOSUB 4000 
720 FOR L=l TO 400: NEXT L 
725 POSITION O, 15 

730 M$=" TRY THIS FOR SI ZE. . . " : GOSUP 40 
00 

740 FOR L-1 TO 400: NEXT L 
750 L.V=-LV+1 
760 GOTO 20 
800 REM PLAYER DEAD 
810 GRAPHICS 1+16 

815 POKE H 1,0: POKE H2,0:P0KF H3,0:PaKE H 
4,0 

820 POSITION 0,10: PR IMT £6: "YOU BIT THF 
DUST. . " 

830 POSITION 0,1 4: PR INT £6;" SCORE : 
" ; SC 

840 POSITION 0,19: PRINT £6;" <■ retur 

n > " 

850 OPEN £1,4,0, "K: " 

860 GET £1,0: if' DO 155 THEN 860 



122 

870 CLOSE £1 

aeo GOTO 17 

1000 REM SET UF"' THE PLAYERS 

1 1 F' K E '5'59,62:F' D I- : E 5 Z 277,3 

1020 PMBASE^=40:;P0KE 54279, PMBASE 

1 3 H 1 -^ 5 3 24-8: H 2 ^^- H J. i- 1 n I -1 3 =- f -1 2 ■+ 1 s H 4 = H 3 ■+■ ] 

1 040 G 1 -704 : C;;2=-C 1 +• 1 : f:3=^C2+ 1 : C4-^^C3+- 1 

1 050 POKE H 1 , :: POKE H2 , ;: POKE H3 , O : POKE^' 

H4 , 

1060 P 1 ■-• P I"! B A S E: * 2 5 /:) -i 1 o 2 4 : p 2 -= P I +• ? 5 6 : P 3 - P 2 ■i- 

256:P4=::p3-i-256 

1070 Z-USR (12357) 

1199 RETURN 

1500 REM READ IN THE MACHINE CODE 

1510 RESTORE 9000 

1520 FOR L^= 1228(3 TO 12389 

1530 READ D:POKE L,D 

1540 NEXT L 

1599 RETURN 

2000 REM DRAW PLAYERS AT INITIAL POSN. 

2010 RESTORE 10000 

2020 FOR L-ia4 TO 191: READ D:POKE P3-(-L , D 

:NEXT L 

2030 FOR L^=50 TO 57: READ D 

2040 POKE P1+L,D:P0KE P2-i-L,D 

2050 NEXT L 

2199 RETURN 

2500 Z -USR (1 2378 ) : FOR L- 1 76 TO 183; POKE 

P4+L,24:NEXT L: RETURN 

4000 FOR Ln=l TO LEN(M$) 

4010 PRINT £6;M*(L,L) :; 

4020 FOR W-1 TO 30: NEXT W 

4030 NEXT L 

4040 RETURN 

5000 REM DRAW PLAYFIELD 

5010 DP=LV*3 

5020 IF DP>25 THEN DP-25 

5030 COLOR 1 : 3ETC0L0R , I NT ( RND ( n * 1 5+ 1 ) 

, INT(RND(l)*10+-5) 

5040 FOR L==6 TO DP+12 

5050 PLOT 0,L:DRAWTO 79, L 
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5060 NEXT L 

5080 COLOR 4 

5100 FOR L==l TO 20 

5110 PLOT I NT ( RND ( 1 ) *80 ) , I NT ( RND ( 1) * ( DP+ 

6) +-6) 

5120 NEXT L 

5999 RETURN 

6000 FOR EX=0 TO 200 STEF' 4: SOUND 0,FX,4 
, 1 4 : NE X T EX: SOUND , , , : RETURN 

9000 DATA 1 73 , 255 , 44 , 72 , 1 62 , 254 ,189,0, 44 

,157,1,44,202,224,255,208,245 

90 1 DATA 104,141,0,44, 1 04 , 96 

9 1 00 DATA 1 73 , 254 , 45 , 72 ,173,255,45, 72 , 1 6 

2 , 253 ,189, O ,45,157,2,45, 202 , 224 , 255 

9110 DATA 208,245,104,141,1,45,104,141,0 

,45,104,96 

9300 DATA 162,0,189,6,47,157,0,47 

9310 DATA 232,224,248,208,245,104,96 

9400 DATA 162,0,1 69 , O ,157, ,44,157,0,45, 

157,0,46,157,0,47 

94 1 DATA 232 , 208 , 24 1 , 1 04 , 96 

9500 DATA 162, ,169,0,157, , 47 , 232 

9510 DATA 208,250,104,96 

1 0000 DATA , ,24,24, 24 , 60 , 1 26 , 255 

10020 DATA 195,102,102,126,231,60,24,24 
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METEROID STORM 




Your force field defences have disintegrated; your lasers 
have overheated and you are now approaching a 
meteroid belt. 

We don't hold out much hope for your survival as it's 
only a matter of time, and manual dexterity, as to how 
long you can keep going. 

Your cruiser is moving down the screen and a 
continuous wave of rocks and star particles are rising to 
meet you so good luck. 



How to play 

As you have no defence systems left you must try to stay 
alive by moving left anf right using keys Z and X and 
pausing, if you dare, by using SPACE. 
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To help you live a little longer we have given you three 
lives. You'll need them. 



Programming Hints 

To slow up the meterolds you can insert a delay as 
follows: 

Line102FORZ=lto30:NEXTZ 



The Program 

10 REM METEROID STDRM 

20 GRAPHICS Oi-POKE 752, Is PRINT 

30 SETCDLOR 2,0,0 

40 LI=.3:SC=0 

100 GOSLIB 1000 

r05 SC=SC-i-2 

110 LOCATE X + 1,0., A: LOCATE X+2, 0, B: LOCATE 

X+3,0,C 
120 IF A+B"i-C=96 THEM 190 
130 LI=LI-1:GDSUB 2000 
1 40 GRAPH I CS ;: POKE 752,1: PR I NT 
150 IF LIOO THEN SETCDLOR 2, 0,0: GOTO 10 


160 GOTO 400 

190 POSITION X,0: PRINT " <=> " H 
200 IF PEEK (764) =23 AND X >0 THEN X=^^X-1 
210 IF PEEK (764) ==22 AND X<35 THEN X=X + 1 
300 GOTO 100 
400 REM OUT OF SHIPE3 
4 1 GRAPH I CS : POKE 752 , 1 : PR I NT 
420 POSITION 0,10: PRINT " YOU HAVE DESTR 
DYED THREE" 
425 GOSUB 3000 

430 POSITION 0,13:PRINT " .VERY EXPE 

NSIVE . " 
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435 60SUB 3000 

440 POSITION 0,1 6: PRINT ".„.. GALACTIC CR 

UISERS " 

450 GOSUB 3000 

460 POSITION 0,, 20: PRINT "YOU SCORED s " 
SSC 

470 POKE 764,0 

480 END 

1000 REM METEORITE / AND UP 

1 1 PCS I T I ON I NT ( RND ( 1 ) •x-40 ) , 23 : PR I NT " * 



1 099 
2000 
2002 
2005 
2007 
OUT 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2099 
3000 
3010 
4000 
S 

4010 
4020 
4030 
4099 



RETURN 

REM SHOW HOW MANY LIVES LEFT 

GOSUB 4000 

GRAPH I CS : POKE 752 , 1 : PR I NT 

POSITION 10, 5 s PRINT "YOU'RE RUNNING 

OF SHIPS" 

IF L 1=^=0 THEN 2099 

POSITION 12,12 

FOR L=l TO LI 

PRINT " < = > "ii 

NEXT L 

SOUND 0,0,0,0 

GOSUB 3000 

RETURN 

FOR W=l TO 500: NEXT W 

RETURN 

REM EXPLOSIONS CAN BE MADE LIKE THI 



FOR L=0 TO 



STEP 



SOUND 0, 
NEXT L 
RETURN 



L,8, 16~L/16 
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ROADRUNNER 




You have been hurtling down country lanes in your new 
sports car, trying to impress your lady friend by your 
side, only to find that your brakes have gone and there is 
a steep incline before you. 

Try to stay on the road — you know it makes sense. 



How to play 



Steer the car using Z and X for left and right and use the 
SPACE bar to correct the rear end drift as you go through 
the bends. When you finally run out of road you will see a 
score on the screen. 
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The program 

10 REM ROAD RUNNER 
20 GOSUB 1000 
30 GRAPHICS 

40 POKE 752,1: PRINT s REM TURN OFF Tl-IF OLJ 

RSOR 

50 R=20 

60 SETCOLOR 2,0,0 

70 FOR L=0 TO R-'-l : POSITION L, 23: PRINT " + 

"!i :NEXT L 

80 FOR L=R+7 TO 39;: POSITION L, 23: PRINT " 

+"; :NEXT L 

90 B==15 

95 BC==-0 

100 GOSUB 2000 

102 SC=SC+1 

105 POSITION B,0 SPRINT ":=C" 

110 IF PEEK (764) =23 AND B>0 THEN P=B~] 

120 IF PEEK (764) =22 AND B<37 THEN P=B4l 

130 LOCATE B,1,E: LOCATE B+1 , 1 , F: LOCATE B 

+2,1,G 

140 IF E+F+G=96 THEN 100 

150 REM CRASHED INTO THE BARRIERS 

160 FOR L=0 TO 255 STEP 3 

170 SOUND 0,L„ 12,L/16 

180 NEXT L 

190 GRAPHICS 1 + :|.6 

200 POSITION 0,8= PRINT £6;" you crashed" 

210 POSITION 0,10: PR INT £6; "ANOTHER WRFC 

KED CAR" 

220 POSITION 0,15:PRINT £6; "YOU SCORED • 

" ; SC 
230 OPEN £1,4,0, "K: " 
240 GET £1,D 
250 IF DO 155 THEN 240 
260 CLOSE £1 
270 RUN 

1000 REM INSTRUCTIONS 
1010 GRAPHICS 1+16 
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1020 POSITION 0,5:Pf^IIMT £6;!" road run 

ner „ . . . " 

1030 POSITION 0,1 2= PR I NT £6il"< SPACE > 

STRAIGHT" 

1 040 POS I T I ON ,14: PR I NT £6 S " -^ Z ^ 

LEFT" 

1 050 POSIT I ON ,16: PR I NT £6 5 " ^ X ^' 

RIGHT" 

1060 POSITION 0,20: PRINT £6:; "< RETURN > TO 

START" 
1070 OPEN £1,, 4,0, "Ks " 
iOL=!0 GET £1,D: if' D0155 THEN 1080 
1090 CLOSE £1 
1099 RETURN 

2000 REM DRAW ROAD AND MOVE IT 
2010 POSITION R, 23s PRINT "+ +" 
2020 IF RND(1)>0,7 AND R>0 THEN R-R-1 
2030 IF RND(1)>0.7 AND R<33 THEN R=R-i-l 
2099 RETURN 
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WALL BREAKER 




This is our version of the popular arcade game of the 
same name. Along the top of the screen you will see 
three rows of coloured 'bricks' and you must use the 
bouncing ball to demolish the wall in as few moves as 
possible. 

A little hint. If you break through the first two rows and 
get to the back wall the ball will stay bouncing, and 
demolishing, from behind until it breaks out again. 



How to play 

Use keys Z and X to move the bat across the screen. 



Programming Hints 

If you are finding the game too easy, or too difficult, you 
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can change the size of the bat by altering Line 80. 
Increase, or reduce the number after BL=. If you want to 
sit back and let the ball bounce on it's own then simply 
increase the bat size until it fills the bottom of the screen. 



The Program 



10 REM WALL BREAKER 

20 GRAPHICS 7-KI.6 

25 MX:^:l.;59:MY=95 

30 GOSDB 1000 

40 X--10:Y = 60 

50 CX==2:CY:::^--1 

60 SC"0:W-=0 

70 BX==10;: BY::=90 

80 BL^--:19 

90 COLOR 3nPL0T BX,BY:DRAWTO BX+BL,BY 

1 C) T X == X + C X : T Y ■■= Y + C Y 

105 IF SCn:::1950 THEN W==W+1:SC=^0;G03UB 100 



110 LOCATE TX,TY,D 

120 IF TX<2 OR TX>MX-2 THEN GOSUB 500:60 



TO 100 








130 IF TY< 


: 1 THEN 


60S5LJB 


550: GOTO 100 


140 IF D<: 


>0 THEN 


GOSUB 


600: GOTO 100 


150 IF ty:; 


>93 THEr 


GOTO 


800 


200 COLOR 


4: PLOT 


X,Y 




210 COLOR 


3;; PLOT 


TX,TY 





220 X==TX:Y^^^TY 

300 K==PEEK(764) 

310 IF l<>^22 AND BX+BL<MX-3 THEN GOSUB 70 
(j 

320 IF K-23 AND BX>3 THEN GOSUB 750 

330 GOTO 100 

500 REM HIT SIDE WALL 

510 SOUND 1,81, 10„ 12:CX— CX 

520 SOUND 1 , , , : RETURN 

550 REM HIT TOP WALL OR BAT 

560 SOUND 1, 126, 10, 12i;CY— CY 
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570 SOUND 1,0, , : RETURN 

600 REM HIT BAT OR BRICK 

610 IF D^Z THEN 650 

620 SOUND 1 , 63 , 1 , 1 5 : COLOR 4 •: SOUND 1,0, O 

,0:;Z-2*INT(TX/2) 

630 PLOT Z , TY n PLOT Z-i- 1 , TY : SC=^SC+D-« 1 

640 CY^=---CY: RETURN 

650 REM HIT THE BAT 

660 SOUND 1 ,, 40 ,, 1 ,14: CY--C Y : SOUND 1,0, O , 



670 SETCOLOR 2 , I NT ( RND ( 1) * 1 6 ) , 1 5 : RETURN 

700 REM BAT RIGHT 

710 COLOR 4: PLOT BX, BY: PLOT BX+1,BY 

720 BX = BX+2: COLOR 3: PLOT BX-hBL 1, BY: PLOT 

BX+BL, BY: RETURN 

750 REM BAT LEFT 

760 COLOR 4: PLOT BX+BL, BY: PLOT BX+BL-1,B 
Y 

770 BX=BX--2: COLOR 3: PLOT BX, BY: PLOT BX+1 

, BY: RETURN 

E300 REM THE BALL IS OUT OF PLAY 

B02 FOR L=0 TO 240 STEP 3 

804 SOUND , L , 1 , 1 : SOUND 1 , L , 1 , 1 

006 SOUND 2 , L+8 ,10,6: SOUND 3 , L+ 1 5 , 1 , 8 

808 NEXT L 

809 FOR L=0 TO 3: SOUND L, 0,0,0: NEXT L 

8 1 GRAPH I CS 1+16: POS I T I ON 0,10: PR I NT £6 
; ''■^■**i^■■^■*■i^■^■■¥.■M■*■^■^**■^■■^■M■■)^■■i^'' 5 

820 PRINT £6;" SCORE : ";STR*(SC+W» 

2000) 

830 PRINT £6; "*x*#-m-»***#-»(.######*#»" 

840 POSITION 0,19: PRINT £6;" <5pac 

e>" 

850 OPEN £1,4,0, "K: " 

855 IF PEEK (764) =33 THEN GET £1,A 

860 GET £1,A 

865 SOUND 1,63,10,15: SOUND 1,0, O , o 

870 IF A032 THEN 860 

880 CLOSE £1:G0T0 10 

1000 REM DRAW WALLS AND BRICKS 
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;l. :l SETCOLOF^ 2 , 2 , J. : SETCOLOR ,7,4 

1020 SETCOLOR 1,6, 8: COLOR 3 

1 030 PLOT ,, : DRAWTO MX , 

1040 PLOT 0,0: DRAWTO 0,MY 

1050 PLOT 1,0: DRAWTO 1 , MY 

1 060 PLOT MX , : DRAWTO MX , MY 

1070 PLOT MX 1,0: DRAWTO MX-1,MY 

1100 FOR L=2 TO MX -5 STEP 4 

1110 COLOR 1:PL0T L. 

1120 COLOR 2: PLOT L. 

1130 PLOT L, 28: plot' 

1140 NEXT L 

1 199 RETURN 



20: 


PLOT 


L+1. 


20 


12: 


PLOT 


L+l 


12 


L+1 


,28 
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SEEK and DESTROY 




Here comes the old command from the boys at the War 
Department. 

Your enemy is out of sight on the other side of the 
horizon and hasn't even been warned that you are about 
to attack so you have the element of surprise on your 
side. 

Your enemy has a full fleet on the high seas intent on 
attacking your bases so 'get your retaliation in first'. 

Besides, it's only a game. Isn't it? 



How to play 

Your enemy's fleet consists of One Flag Ship 
points; One Cruiser — 160 points; One Frigate 



240 
100 
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points but you only have a limited number of shots left in 
your locker so make them count. 

Use the keys Z and X to move the base control left and 
right and the / and + keys to move the upper gun control 
down and up. 

When you feel that you have located your target press 
the SPACE bar to fire at the co-ordinated target. 



Programming Hints 

To make the game more limited, and therefore more 
demanding, you can reduce the fire power of your fleet 
by changing the number of shots available by altering 
thefigure in Line 40 of the program. 



The Program 

:l F^EM SEIEK AMD DESTROY 

15 DIM A (9. 9) 

17 FOR X-=0't0 9 2 for Y=0 TO 9 

18 A(X, Y)=0:MEXT YiiNEXT X 
20 GOSUB 1000 

30 SC=0 

40 G==40 

50 GOSUB 1500 

60 GOSUB 2000 

70 X==5 : Y-5 : COLOR 2 : PLOT X , 1 : PLOT 1 , Y 

100 REM MAIN LOOP 

110 IF SC=500 THEM 800 

115 IF G==0 THEN 700 

120 GET £1,D 

130 IF 0=^=32 THEN 300 

140 IF D=ASC("Z") AND X>0 THEN COLOR 4:P 

LOT X , 1 : COLOR 2 : X =- X - 1 : PLOT X ,, 1 

150 IF D=ABC("X") AND X<9 THEN COLOR 4:P 

LOT X , 1 : COLOR 2 : X =- X i- 1 : PLOT X , 1 



COL 
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160 IF D-ASCCV") AND Y<9 THEM rClL DR 4:P 

LOT J. , Y :; COLOR 2 : Y- Y-i- 1 : F'LOT 1 , Y 

1.70 IF D=ASC(" + ") AMD Y>0 THENCOIOR 4-P 

LOT 10, Y: COLOR 2: Y-Y-1 : PLOT 10, Y 

200 GOTO 100 

300 REM FIRE 

305 G-G-1 

3 1 I F A < X , Y ) - T II E: M p R I N T "MI S S . . 

OR 4: PLOT X,Y:A(X,Y)- 1 : GOTO 100 

320 IF A(X,Y)= 1 THEM PRINT "O.K. YOU M 

ISSED":GOTO 100 

330 ON A ( X , Y ) G03UB 4000 , 4 1 00 , 4200 

340 COLOR li;Pi....0T X,Y: PRINT "*¥.-¥.n* HIT *■*■ 

«■**": A (X,Y) -4: GOTO 100 

700 REM RON OUT OF SHOTS 

710 PRINT "THEY WERE HIDDEN LIKE THIS" 

720 GOSUB 3000 

730 GET £1,D:IF D=32 THEN 850 

740 GOTO 730 

800 REM ALL SHIPS SUNK 

810 PRINT "CONGRATULATIONS" 

820 PRINT "ALL SUNK WITH "HG;" SHOTS IFF 

T" 

830 FOR W=:l TO 500: NEXT W 

850 PRINT " AGAIN (Y/N)" 

860 GET £ 1 , D : I F D< >ASC ( " Y " ) AND D< ^ASC < " 

N") THEN 860 

870 IF D=ASC("Y") THEN RUN 

880 END 

1000 REM GIVE SCORES 

1010 GRAPHICS 1+16; POSITION 0,3 

1020 PRINT £6; "BATTLESHIP SCORES" 

1030 POSITION 0,7 

1040 PRINT £65" FRIGATE lOO" 

1050 POSITION 0, 11 

1060 PRINT £6 5 "000 CRUISER 160" 

1070 POSITION 0, 12 

1080 PRINT £6; " O" 

1090 POSITION 0, 14 

1100 PRINT £6; "000" 

1110 POSITION 0, 15 
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1. 1 20 

1 1 30 

1 140 

1 1 50 

1160 

1199 

1 500 

1510 

1515 

1520 

1 530 

1540 

1599 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2,B)< 

2 1 00 

2 1 1 

2199 

3(?00 

3005 

3010 

3020 

3030 

3040 

3050 

3099 

4000 

4100 

4200 



:40' 



THEM 1160 



PRINT £6; "0 FLAG 

POSITIOM O, 16 

PRINT £6; "000" 

OPEN £1,4,0, "K: " 

GET £1,D: if' D<>: 

RETURN 

REM DRAW PLAY AREA 

GRAPHICS 3 

PC3KE 752, 1: COLOR 3 

FOR X^O TO 9 

PLOT X,Oi:DRAWTO X,9 

NEXT X 

RETURN 

REM CHOOSE POSITIONS 

A= I NT ( RND (1 ) *8 ) : B=^-: I NT ( RND ( I ) *R ) 

FOR L=0 TO 2:A(A+L,B)-3 

A ( A+L , B+2 ) =3 : A ( A , B+L ) =3 

A(A+2,B+L)-3:NEXT L 

A= I NT ( RND ( 1 ) * 1 ) : B-^ I NT ( RND ( 1 ) * 1 ) 

IF A(A,B)<>0 THEN 2050 

A(A,B)=i 

A=: I NT ( RND < 1 ) #8 ) : B=: I NT ( RND (1 ) *9 ) 

IF A(A,B)<>0 OR A(A+1,B)<>0 OR A (A+- 

>0 OR A(A+1,B+1)<>0 THEN 2080 

A(A,B)=2: A(A-H,B)=2: A(A+2,B)=2 

A(A+1,B+1)=2 

RETURN 

REM SHOW WHERE THEY WERE 

COLOR 1 

FOR X=0 TO 9 

FOR Y=0 TO 9 

IF A(X,Y)>0 THEN PLOT X,Y 

NEXT Y 

NEXT X 

RETURN 

SC^-=SC+ 1 00 : RETURN 

SC=SC+40: RETURN 

5C^:^SC+30: RETURN 
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ROAD BLOCK 




You have arrived at the Berlin Wall with a coach full of 
passengers intent on reaching the other side but the 
guards are putting up blocks as fast as you can 
manoeuvre. 

Make a mistake and hit one of the blocks and it's all over 
for everyone and you are off to the Gulags. 



How to play 



Entering the screen at top left you will be faced with a fast 
growing spread of road blocks. Make your moves by 
using keys Z and X for left and right and / and + for down 
and up. 
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If you decide to drive off the edge of the screen it will do 
you no good as you will only appear on the other side as 
the screen 'wraps around'. 



Programming Hints 

If you would like to make it easier to play then you can 
alterthe length of the coach by changing the values from 
1 to 20 in Line 30 of the program. 



The Program 

10 REM ROAD BLOCK 

20 DIM X (20) , Y (20) 

30 N-4 

40 GRAPHICS 3+16 

50 FOR L-1 TO N:X (L)=0: Y(L)=0:NEXT L 

hO SC~0 

100 REM MAIN LOOP 

105 A==X ( 1) :B=Y (1) 

110 k>PEEK:(764) : IF K=23 OR K>22 OR K=6 

R Kv=3S THEN M=K:SC=SC+10 

120 IF M=23 THEN A=A-1:IF A=-l THEN A=39 

130 IF M=22 THEN A=A+1:IF A=40 THEN A=0 

140 IF M=3S THEN B=B+1:IF B=24 THEN B=0 

150 IF M=6 THEN B=B-1:IF B=-l THEN B=23 

160 LOCATE A,B,D:IF DOO THEN 800 

200 COLOR IrPLOT A,B 

2 1 COLOR 2 : PLOT X ( 1 ) , Y ( 1 ) 

220 COLOR 4: PLOT X(N),Y(N) 

230 FOR L-N-1 TO 1 STEP -1 

240 X (L+1)=X (L) :Y(L+1)=Y(L) 

250 NEXT L 

260 X(1)=A:Y(1)=B 

270 G= I NT ( RND ( 1 ) *40 ) : H= I NT ( RND ( 1 ) *24 ) 

280 LOCATE G,H, I 

290 IF 1=1 OR 1=2 THEN 270 

300 COLOR 3: PLOT G,H 
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400 GOTO 100 

800 REM COACH HIT A ROADBLOCK 

blO GRAPHICS 1+16 

820 POSITION 0,10:PRINT £6; "YOU SCORED : 

";sc 

830 POSITION 0,17: PRINT £h; " < SPACE 

840 OPEN £1,4,0, "K: " 

350 GET £1,0 ' 

860 IF D032 THEN 850 

870 CLOSE £1 

880 RUN 
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MINELAYER 




It's a darned hard life for the little man who has been 
deserted by his fellow soldiers, in the middle of a mine 
field. See if you can help him reach the dug-out where his 
colleagues are hiding. 

The mines are randomly generated, so be careful of your 
moves. Don't tell the little soldier but we believe, on very 
good authority, that when he reaches the safety of the 
dug-out he is going to be sent out on another mission. 

Every time he makes it through the minefield the number 
of mines increase and he must keep going until 



How to play 

Use keys Z and X for left and right and / and -t- for up and 
down. When the inevitable overcomes your hero you will 



142 

see a score on the screen and you may press RETURN to 
send the poor little beggar back into the field. 

Programming hints 

If you feel that our hero deserves a break then you can 
reduce the rate at which the mines generate by reducinq 
D1 = 10inLine25. 

This will slow down the mines and prolong your time 
response. 



The program 

10 REM MINELAYER 

11 REM WITH M/CDDE MOVEMENT' 
20 GRAPHICS 5+16 

25 DI=10:REM DIFFICULTY 

30 GOSUB 1500 

40 GOSUB 1000 

50 M=70:P0KE H1,M 

60 N= 120: POKE CI ,,200 

70 3C=0sWV=l 

SO X=20:Y-20: GOSUB 5000 

90 POKE 53273, 1 

100 IF PEEK (764) =23 AND M>45 THEN M^^M--?- 
POKE H1,M 

110 IF PEEK (764) =22 AND M<205 THEN M^Mh--:^ 
:POKE H1,M 

120 IF PEEK (764) =6 AND N>25 THEN N=N--3: z 

=USR( 12300) 

130 IF PEEK (764) =38 AND N<220 THEN N=N+3 

: Z=USR( 12339) 

140 IF PEEK (53252) =0 THFN 200 

150 IF PEEK (53252) =2 THEN 400 

160 GOTO aoo 

200 GOTO 100 
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400 REM END OF WAVE/TARGET FOUND 

410 FOR L=0 TO 250 STEP 3: SOUND 0,L,10,1 

4 

420 NEXT L 

430 SOUND 0,0,0,0 

440 GOSUB 5000 ;: SC=SC+WV* 1 :; WV=WV+ 1 

450 GOTO 100 

300 REM HIT A MINE 

810 REM SO DETONATE THEM 

820 FOR L.=0 TO 255 STEP 2 

830 SOUND 0,L,8,L/32 

835 SETCOLOR 2,L/16,L/16 

840 NEXT L 

850 SOUND 0,0,0,0 

060 GRAPHICS 1+16 

865 POKE H1,0 

870 POSITION 0,6sPRINT £6; "you hit a min 

e" 

880 POSITION 0,10 SPRINT £6!!" YOU SCORED 

: " ; S C 

890 POSITION 0,20: PRINT £6!!" < RETURN 

900 OPEN £1,4,0, "l<: " 

910 GET £1,D:IF DO 155 THEN 910 

920 CLOSE £1 

930 RUN 

1000 REM SET UP THE PLAYERS 

1010 POKE 559, 62: POKE 53277,3 

1020 PMBASE=40sP0KE 54279, PMBASE 

1030 HI =53248 

1040 CI =704 

1050 POKE H1,0 

1060 P1=PMBASE*256+1024 

1070 Z=USR( 12288) 

1080 RESTORE 7000 

1090 FOR L=0 TO 7 

1100 READ D:POKE P1+L+120,D 

1110 NEXT L 

1199 RETURN 

1500 REM READ IN THE MACHINE CODE 
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1510 RESTORE 9000 

1520 FOR L= 12288 TO 12377 

1530 READ D:POKE L,D 

1540 NEXT L 

1599 RETURN 

5000 REM ERASE TARGET/ DRAW TARGET 

5010 COLOR 4:G0SUB 5500 

5020 X = I NT ( RND ( 1 ) *70+5 ) : Y= I NT ( RND ( 1 ) #40-i- 
5) 

5030 COLOR 2!:G0SUB 5500 
5100 FOR L=l TO DI 
5110 POKE 53278, 1 

5120 P= I NT (RND ( 1 ) *70+5) : Q= I NT (RND ( 1 ) #40+ 
5) 

5130 COLOR 3:G0SUB 5600 

5140 IF PEEK (53252)00 THEN COLOR 4i!G0SU 

B 5600: GOTO 5110 

5150 NEXT L 

5199 RETURN 

5500 PLOT X-1,Y-1:DRAWT0 X+1,Y~1 

5510 DRAWTO X + 1 , Y+1 : DRAWTO X-1,Yh-1 

5520 DRAWTO X~1,Y-1 

5530 RETURN 

5600 PLOT P-1,Q: DRAWTO P+1,0 

5610 PLOT P,Q-1: DRAWTO P,0+1 

5620 RETURN 

7000 DATA 56 , 1 86 , 1 46 , 1 24 , 1 6 , 40 , 68 , 68 

9000 DATA 1 62 , , 1 69 , , i 57 , , 44 ■ 

90 1 DATA 232 , 208 , 250 , 1 04 , 96 

9100 DATA 173,2,44,72,173,1,44,72,173,0, 
44,72,162,0 . . . , 

9 1 1 DATA 1 39 ,3,44,1 57 , , 44 , 232 , 2-^4 ''53 
208,245 " ' "' 

9120 DATA 104,141,253,44,104,141,254,44, 

104,141,255,44,104,96 

9200 DATA 173,255,44,72,173,254,44,72,17 
3,253,44,72,162,252 ' ' ' ' 

9210 DATA 189,0,44,157,3,44,202,224,255, 
208,245 ' •'!' 

9220 DATA 104,141,0,44,104,141,1,44,104, 
141,2,44,104,96 ■ ' . n 
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RIFLE GALLERY 




Sharp shooter time again as you try to prove that you 
have spent too nnany hours in entertainnnent arcades 
shooting ducks. 

We have not given you ducks or chickens to shoot at but 
a series of numbers from 1 to 9 inclusive. 



How to play 

The numbers will scroll across the screen from left to 
right and, if they are missed by the marksman, scroll off 
the edge and come round again on the left. Any numbers 
which have been shot out will be missing on subsequent 
scrolls of the screen. 



Use keys Z and X to move left and right and SPACE to fire. 



146 



Each player has ten shots and a score will be displayed at 
the end of the ten shots, or sooner if that is possible. 



Programming Hints 

If there are members of your circle who are having 
problems in shooting all the numbers in the gallery 
because of the speed of the spin try this delay. 

Enter LINE 1080 FORZ = 1 to 40: NEXTZ 

This will slow down the scroll. 

The Program 

REM RIFLE 
20 DIM A $ ( 4 1 ) , B* ( 4 1 ) , T$ ( 1) 
30 GRAPHICS 0:PDKE 752,1: PRINT 
40 A$(l,40)="l 2 3 4 5 6 7 

S 9 
50 Q=0 
60 Y-O 

70 SC=0: 6=10: POSITION B, 21: PRINT ""; 
ao SH=10 
100 GO SUB 1000 

200 IF PEEK (764) =23 AND B>0 THEN B=B-1:P 
OSITION B, 22: PRINT " "; 

210 IF PEEK (764) =22 AND B<36 THEN POSIT I 
ON B, 22: PRINT " ";:B=B+1 
300 GOSUB 1000 

310 IF PEEK (764) =33 AND Y=0 THEN Y=21:X= 
B+1:SH=SH-1 
400 IF Y~0 THEN 100 
4 1 POS I T I ON X , Y : PR I NT " " ; 
420 Y=Y-1:IF YOO THEN 430 
423 IF SH=0 THEN SOO 
426 GOTO 100 
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430 LOCATE X,Y,D 

440 IF D032 THEN 500 

450 POSITION X,Y: PRINT "I"; 

460 GOTO 100 

500 T=X+1 

510 A*(T,T)=" " : SC==SC+D*5-240 

520 POSITION 12, 23: PRINT " SCORE : ";SC; 

II II m 

530 Y=0:POKE 764,0 

540 GOTO 100 

800 REM RUN OUT OF SHOTS. 

aiO GRAPHICS 1+16:P0SITI0N 0,4 

820 PRINT £6; "TEN SHOTS FIRED" 

830 POSITION 0,10:PRINT £6;" score :" 

340 POSITION 0,17: PRINT £6;" < RETURN 

850 OPEN £1,4,0, "K: " 

860 GET £1,D:IF DO 155 THEN 860 

870 RUN 

1000 REM ROTATE STRING AND PRINT 

1010 T $ = A * ( 4 ,40) 

1 020 B$ < 2 , 40 ) = A* ( 1 , 39 ) 

1030 A$ (1 , 1 ) =T$: A$ (2, 40) =B$ (2, 40) 

1040 POSITION 0,10: PRINT A$; 

1050 Q=Q+1 

1060 IF a==40 THEN a=0:SETCaLuR 2,INT(RND 

( 1 ) * 1 6 ) , C) 

1099 RETURN 
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WORDGRAMS 




If you are tired of zapping, crunching and powing the 
aliens of the Universe perhaps you would like to try 
something a little more cerebral. 

Your 600 XL will choose a word at random, from a 
selection, and scramble the letters on the screen. You 
must determine the word and enter your answer. 



How to play 

Type in the word you think has been scrambled and press 
RETURN. 



You will be given a selection often words and will receive 
points based on your efforts. 



149 
Programing Hints 

You can alter the words by changing the data in lines 9000 
onwards but remennber, if you change the number of 
words, you must change the items in Line 20. 



The Program 

10 REM W0RDGRAM3 

20 DIM B$(20) , W$(20) , I$(20) ,T$(1) 

30 GRAPHICS 

40 3ETC0L0R 2,0,0 

50 SC=0 

.100 FOR T=l TO 10 

1 10 GOSLJB 1000 

120 GDSUB 2000 

130 graphics 0:setcolor 2,0,0 

140 position 0,4: print "wordgram number 

";t 

150 position 0,1 2: print "what is ...." 

160 position 0,14: print " " : s* 

1 70 pos i t i on , 20 : pr i nt ".,..: 

180 position 5,20 

190 INPUT 1$ 

200 IF LEN(I*)=0 THEN 170 

205 POKE 752,1: PRINT 

210 IF I$=W* THEN 300 

220 POSITION 0,16:PRINT " INCORRECT..."; 

W-$ 

230 POSITION 25,17:PRINT "WAS THE WORD" 

240 GOTO 400 

300 POSITION 0,1 6: PR INT " CORRECT 

YOU SCORE 10 POINTS" 

310 SC==SC+10 

400 FOR W=l TO 700: NEXT W 

500 NEXT T 

600 GRAPHICS 

610 POSITION 17, 10: PR I NT "RESULTS" 
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620 POSITION 0,1 4: PRINT 



SCORE. 



630 POSITION 15, 20: PRINT "< SPACE 

640 POKE 764,0 

650 IF PEEK < 764)033 THEN 650 

660 RUN 

1000 REM CHOOSE A WORD AT RANDOM 

1010 RESTORE 8999 

1020 READ N 

1030 FOR L=l TO INT (RND (1 ) *N+1 ) 

1040 READ W* 

1050 NEXT L 

1099 RETURN 

2000 REM SCRAMBLE THE WORD INTO 3$ 

2010 S5=:W* 

2020 FOR L=l TO 30 

2030 A= I NT ( RND ( 1 ) *LEN ( S* ) + 1 ) 

2040 B== I NT ( RND ( 1 ) *LEN ( S$ ) + 1) 

2050 T$=S$ (A, A) :S*(A, A)=S*(B, B) 

2060 3$(B,, B)=T* 

2070 NEXT L 

2099 RETURN 

8999 DATA 

9000 DATA 
9010 DATA 
9020 DATA 
9030 DATA 
9040 DATA 
9050 DATA 
9060 DATA 
9070 DATA 
9080 DATA 



20 

ARTISTIC, INTELLECTUAL 
FRANCHISE, IMPETUS 
TELEV I S I ON , PR I NTER 
SKY, BRUSHED, PORTABLE 
FORMATION, CLOCK 
ENTERT A I NMENT , V I DEO 
COMPUTER, AUTOMATIC 
SYMBOLIC, REGISTERED 
SYNONYM, ABSTRACT, WRONG 
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HUNT THE DAY 




Have you ever wondered if your old dad was 'Fair of 
Face', 'Full of Grace', 'Full of Woe', had 'Far to Go' or, 
hopefully, was 'Full of Loving and Giving'? 

Nowisyourchancetofindout. 

If you ask any members of your family, or your friends, 
when they were born you will be able to tell them, using 
this program, the actual day of the week when the great 
event happened. 

By the way, this chart is only effective as far back as 1st 
January, 1753 which was when the calendar changed to 
it's present form. Of course, you already knew that didn't 
you? 

Oh, by the way, we have taken account of leap years just 
in case you thought you could catch us out. 
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How to play 

You will be asked for details of the date you have in mind. 

When you have typed in the data press RETURN after 
each item. 

When you have completed the requested material your 
600 XL will do the rest for you. 

The Program 

10 REM HUNT THE DAY 

20 D I M M* ( 20 ) , T* ( 20 ) 

100 GRAPHICS 

110 POSITION 0,3;: PRINT "PLEASE GIVE THE 

DATE YOU REQUIRE" 

120 GOSUB 1000 

130 GOSUB 2000 

140 POSITION 0, 1 

150 PRINT " THAT WAS/ IS/ WILL BE A " .■; T 
* 

160 POKE 752, 1: PRINT 

170 POSITION 0,3: PRINT " PLEASE PRE 

SS < SPACE;- WHEN READY" 

200 OPEN £1,4,0, "K: " 

210 GET £1,D:IF'd<>32 THEN 210 

220 CLOSE £1 

230 RUN 

1000 REM GET A DATE 

1 1 POS I T I ON 0,1 : PR I NT " YEAR , . „ . 

": POSITION 9, 10 
1020 INPUT Y:IF Y<1753 OR Y<>INT(Y) THEN 

1010 
1100 POSITION 0,1 5: PR I NT "MONTH... 

": POSITION 9, 15 
1110 INPUT M*:IF M* ( 1 , 1 ) ; -" 1 " AND M* ( 1 , 1 
)< = "9" THEN M-VAL(M<t) :GOTO 1200 
1120 RESTORE 9000 
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1130 FOR L-l TO 12 

1140 F"^EAD Tt> 

1150 IF T15-M*(1,3) THEM M-L 

1160 ME XT L 

1200 IF M-a. OR M>12 OR M<>IMT(M) THEM 11 

10 

1 300 POS I T I DM , 20 5 PR I NT " DAY 

": POSITION 9,20 

1310 INPUT D 

1320 IF D<1 OR D>31 OR D<>INT(D) THEN 13 
00 

1999 RETURN 

2000 REM FIND OUT DAY OF WEEK 

20 1 A--:^: Y I- 1 I- 3 1 * ( M- 1 ) -M NT ( ( Y - 1 ) / 4 ) I NT ( 3 m- J 

NT ( (Y-i-99) /1 00) /4) 

2020 IF M-:=2 THEN 204C> 

2030 A- Y+ 1 +3 1 «• ( M- 1 ) - 1 NT ( ( 4« M+23 ) / 1 ) -i- 1 NT 

( Y/4 ) I NT ( 3 X ( I NT ( Y/ 1 OC) ) + 1 ) /4 ) 

2040 A^^^::A- INT (A/7)*7 

2050 IF A-0 THEN A=7 

2 60 A ^ A ■- 1 ;; I F M ^■= 2. T hi E N 2 1 

2070 N^^^:31 

2080 IF M-4 OR M-6 OR N-9 OR M-1 1 THEN N 

— 30 

2090 GOTO 2120 

2100 N---=28 

2110 I F Y-- 1 NT ( Y / 4 ) *4==-0 THEN N=:^29 

2120 IF D>N THEN T'ti- "NON- DAY ": RETURN 

2130 A-A+D:D-A-INT(A/7) N-7: IF D-0 THEN D- 

7 

2135 RESTORE 9500 

2140 FOR L=l TO D 

2150 READ T* 

2160 NEXT L 

2999 RETURN 

9000 DATA JAN, FEB, MAR 

9010 DATA APR,MAY,JUN 

9020 DATA JUL, AUG, SEP 

9030 DATA OCT, NOV, DEC 

9500 DATA SUNDAY, MONDAY, TUESDAY 

9510 DATA WEDNESDAY, THURSDAY, FRIDAY 

9520 DATA SATURDAY 
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SURROUND 




Ever wondered how to surround someone on your own? 
When they are trying to surround you, at the same time. 
Now is your chance to find out. 

Try not to fall over your own tracks or you are out of the 
game. 



How to play 

For this little gem we have put all the playing instructions 
on the screen at the commencement of play 



The program 



1.0 REM SURF^;01JMD 

15 DIM M$(12) ,Mi$(l2) ,N21:-(12) 
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20 GDSUB 1000: GO SUB 2000 

30 GRAFHICE5 5-1-16 

40 E-22:F"--34 

50 H=20=G=^60 

60 B-24:D=24 

100 REM PLAYER ONE 

110 K=^PEEK(764) : IF h:>47 OR K>23 OR 1<=22 

OR k>=:63 THEN E-K 

120 IF E-23 THEN A^A-i-79 

130 IF E-22 THEN A=A+ai 

140 IF E-47 THEN B-B-i-47 

150 IF E=63 THEN B=B-i-49 

160 A==A-80*INT ( A/BO) : B=B~4S*INT ( B/48) 

200 K>=PEEK(764) : IF k>14 OR K-34 OR K-ZQ 

OR K=6 THEN F=K 

210 IF F=34 THEN C=C+79 

220 IF F=38 THEN C-C+81 

230 IF F-14 THEN D:^=D-i-47 

240 IF F=6 THEN D=:^D-i-49 

250 C=C -80#INT (C/80) : D=D-4S*INT (D/48) 

300 LOCATE A,B,G:IF GOO THEN 800 

310 LOCATE C,DJ-I:IF HOO THEN 900 

400 COLOR 1:PL0T A, B 

410 COLOR 2;; PLOT C,D 

500 GOTO 100 

800 REM PLAYER ONE CRASHED 

810 M$=N1*:G0T0 920 

900 REM PLAYER TWO CRASHED 

910 M*=N2* 

920 GRAPHICS H-16 

930 POSITION 0,10: PRINT £6;M$;" CRASHED" 

980 OPEN £1,4,0, "K: " 

990 GET £1,D:IF D032 THEN 990 

995 CLOSE £1:RUN 

1000 REM INSTRUCTIONS 

1010 GRAPHICS 1+16: POSITION 0,3 

1020 PRINT £6; "instructions (y/n)" 

1030 OPEN £1,4,0, "K: " 

1 040 GET £ 1 , D : I F D< >ASC ( " Y " ) AND D< > ASC ( 

"N") THEN 1040 
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1050 IF D=--ASC("M") THEN 1999 

1 1 00 POS I T I ON ,, 3 : PR I NT £6 li " -=== i net. r uc t 

ions -==" 

1 1 1 POS I T 1 ON , 5 : PR I NT £6 ! " PLAYER PL 

AVER" 

1 1 20 POS I T I ON „ 6 s PR I NT £6 3 " ONE 

TWO" 

1130 POSITION 0,a:PRINT £6;" Z LEFT 

11 

1140 POSITION 0,9: PRINT £6 3" X RIGHT 

/" 
1150 POSITION 0,10s PRINT £6 5" Q UP 

It 

1 1 60 POS I T I ON 0,11: PR I NT £6 ; " A DOWN 
+ " 

1170 POSITION 0,1 9: PRINT £6 3 "TRY TO STAY 
ALIVE" 

1180 POSITION 0,21:PRINT £6; "avoid each 

other " 

1190 POSITION 0,23: PRINT £6.5" < space 

1200 GET £1,D:IF D032 THEN 1200 
1300 CLOSE £1 

1999 CLOSE £1: RETURN 

2000 REM GET NAMES 
2010 GRAPHICS 1 

2020 POSITION 0,10:PRINT £6; "PLAYER ONF' 

S NAME" 

2025 PRINT 

2030 POS I T I ON 18,10: PR I NT £6 3 " 

": POSITION 18, 10: INPUT Nl*: IF 
Nl*="" THEN 2020 

2100 POSITION 0,10: PR I NT £6 3 "PLAYER TWO^" 

S NAME" 

2 1 1 POS I T I ON 18,1 : PR I NT £6 5 " 

" : POS I T I ON 18,10:1 NPUT N2t. s I F 
N2*="" THEN 2100 
2200 IF Nli|;<>N2if. THEN 2999 

2210 POSITION 0,5: PRINT £63" how conf 
Lisi nq" 
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2220 FOR L=l TO 500s NEXT L 
2230 GOTO 2010 
2999 RETURN 
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HARK THE HERALD 
ANGELS SING 




We were feeling festive when we came to tinis program 
so we decided to throw in a Christmas carol instead of the 
latest David Bowie hit. 

To make it more fun we have written this program so that 
the words of the carol appear on the screen, line by line. 
Call it 'Sing-a-long-a-600 XL' if you like. 



How to play 

When you have typed in the program just sit back and 
enjoy the music. 
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Programming hints 

If you don't like our selection of carol then you can 
change the tune by altering the data in Lines 9000 
onwards. The words are in lines 5000 — 5100. Note that 
the last word nnust be a full stop (.) 

Line 8000 has the number of notes in the tune. 



The program 

10 REM HARK THE HERALD ANGELS SING 

20 DIM T (6): RESTORE 8000 

30 READ T 

40 FOR L=l TO 6;iT(L)=L^<T:NEXT L 

5 D I M W <{; ( 4 0) , T * ( 4 ) 

60 GOSUB 3000 

70 GRAPHICS 0: POSITION 0., B 

80 POKE 752, 1: PR I NT 

100 RESTORE 9000 

110 GOSUB 1000 

120 END 

1000 REM PLAY A TUNE 

1005 C=0 

1010 READ P,D 

1012 IF PO--1 THEN 1020 

1014 PRINT SPRINT W$ (C*40+l , C*40+40) 
1016 0=0+1 

1013 GOTO 1010 

1020 IF P=0 THEN 1099 

1030 SOUND 0,P, 10, 14 

1040 FOR W=r TO T(D)sNEXT W 

1050 SOUND 0,0,0,0 

1060 GOTO 1010 

1099 RETURN 

3000 REM READ IN WORDS 

3002 C=0 

3005 RESTORE 5000 
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3010 T*~" 

II 

3015 READ T*:T$(40)=" " 

3020 IF T$ ( 1 , 1 ) = " . " THEN 3099 

3030 W$ (C*40+l , C*40-i-40) =T* ( 1 , 40) 

3040 C=C+1 

3050 GOTO 3010 

3099 RETURN 

5000 DATA HARK THE HERALD-ANGELS SING 

5010 DATA GLORY TO THE NEW-BORN KING 

5020 DATA PEACE ON EARTH AND MERCY MILD 

5030 DATA GOD AND SINNERS RECONCILED 

5040 DATA JOYFUL ALL YE NATIONS RISE 

5050 DATA JOIN THE TRIUMPH OF THE SKIES 

5060 DATA WITH THE ANGELIC HOST PROCLAIM 

5070 DATA CHRIST IS BORN IN BETHLEHEM 

5080 DATA HARK! THE HERALD-ANGELS SING 

5090 DATA GLORY TO THE NEW BORN KING 

5100 DATA , 

BOOO DATA SO 

9000 DATA -1,0,108,2,81,2,81,3,85,1,81,2 
,64,2,64,2,72,2 ' 

9010 DATA -1,0,53,2,53,2,53,3,61,1,64,2, 
72,2,64,4 

9020 DATA -1,0,108,2,01,2,81,3,85,1,81,2 
,64,2,64,2,72,2 

9030 DATA -1,0,53,2,72,2,72,3,85,1,85,2, 
96,2,108,4 

9040 DATA -1,0,53,2,53,2,53,2,81,2,61,2, 
64,2,64,2,72,2 

9050 DATA -1,0,53,2,53,2,53,2,81,2,61,2, 
64,2,64,2,72,2 

9060 DATA "1,0,47,2,47,2,47,2,53,2,61,2, 
64,2,61,4 

9070 DATA "1,0,72,2,64,1,61,1,53,3,81,1, 
81,2,72,2,64,4 

9080 DATA "1,0,47,3,47,1,47,2,53,2,61,2, 
64,2,61,4 

9090 DATA "1,0,72,2,64,1,61,1,53,3,81,1, 
81,2,72,2,81,6 ' ' ' 

9099 DATA 0,0 



Here is a wide ranging collection of 

programs written to show off 

the colour, graphics and sound capabilities 

of the bOU XL 

Arcade style games 
to test your reactions 

and finger twisting skills 

Adventures 

to sharpen your wits and memory 
and push your powers of deduction to the limit 

J, '^Ui iics or v_; . 
to make your mind whirl around 

to help you control your spending, 

chart your progress. 

catalogue your collections 
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\vith something for evt 
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